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ABSTRACT 


German  Army  light  helicopter  transportation  regiments  operate 
45  Bell  UH-1D  helicopters  to  support  demanding  missions  throughout 
Europe.  Maintenance  period  scheduling,  major  exercise  and  regular 
mission  assignment  decisions  directly  influence  the  readiness  of 
the  helicopter  fleet.  Currently,  all  planning  is  done  manually, 
which  is  unstructured  and  time  consuming.  This  thesis  describes  a 
decision  support  system  designed  to  assist  with  maintenance 
planning  and  mission  assignment.  The  yearly  maintenance  and  event 
scheduling  problem  and  the  short  term  mission  assignment  tasks  are 
formulated  and  solved  as  elastic  mixed  integer  linear  programs. 
Resulting  yearly  schedules  and  short  term  sortie  plans  are  both 
generated  in  a  fraction  of  the  time  previously  required  with 
solution  quality  superior  to  their  manual  counterparts. 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in 
this  research  may  not  have  been  exercised  for  all  cases  of 
interest.  While  every  effort  has  been  made,  within  the  time 
available,  to  ensure  that  the  programs  are  free  of  computational 
and  logic  errors,  they  cannot  be  considered  validated.  Any 
application  of  these  programs  without  additional  verification  is  at 
the  risk  of  the  user. 
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EXECUTIVE  SUMMARY 


This  thesis  develops  two  optimization  models  and  proposes 
an  interface  for  a  self  sufficient  personal  computer  based 
decision  support  system  as  an  interactive  instrument  to 
construct  reliable  and  completely  organized  helicopter  usage 
and  maintenance  plans.  The  optimization  models  assist  with 
yearly  maintenance  and  event  scheduling,  and  short  term 
helicopter  -  mission  assignments.  Computational  experience 
shows  both  yearly  schedules  and  short  term  sortie  plans  are 
generated  in  a  fraction  of  the  time  previously  required  with 
solution  quality  superior  to  their  manual  counterparts. 

These  results  are  for  a  German  Army  light  helicopter 
transportation  regiment  operating  45  Bell  UH-1D  helicopters. 
For  such  regiments,  maintenance  period  scheduling,  major 
exercise,  and  regular  mission  assignment  decisions  directly 
influence  the  readiness  of  the  helicopter  fleet.  The  planning 
supervisor  in  the  regiment's  maintenance  and  repair  battalion 
strives  to  keep  high  technical  and  operational  standards  while 
meeting  all  necessary  inspections  (16  different  inspections 
during  a  1200  flight  hours  cycle) ,  satisfying  all  mission  and 
exercise  requirements,  equitably  using  the  helicopters,  and 
smoothly  operating  the  maintenance  facilities.  Done  manually, 
these  tasks  are  unstructured  and  time  consuming. 

The  two  optimization  models  provide  valuable  assistance  to 
the  planning  supervisor.  The  yearly  planning  model  assigns 
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helicopters  to  inspections  and  to  exercises  while  observing 
monthly  planned  flight  hours  and  operational  guidelines  (a 
desired  level  of  flight  hour  reserve,  a  percentage  range  of 
operationally  ready  helicopters,  an  upper  level  of  monthly 
flight  hours  per  helicopter,  and  inspection  capacities) .  The 
short  term  model  assigns  helicopters  to  missions  while 
observing  the  technical  status  of  each  helicopter  (remaining 
flight  hours  to  next  inspection,  planned  time  of  next 
inspection,  availability)  and  fulfilling  all  mission 
requirements  with  respect  to  flight  hours,  and  equipment. 

Resulting  yearly  schedules  and  computed  short  term  mission 
assignment  plans  are  face-valid  (i.e.  judged  implementable  by 
expert  opinion),  superior  to  their  manual  counterparts  (i.e. 
fewer  planning  conflicts)  and  generated  in  a  small  fraction  of 
the  time  previously  required. 

Included  in  this  study  are  the  system's  structure,  the 
development  and  implementation  of  the  two  optimization  models, 
computational  results,  the  interface  proposal,  and 
explanations  regarding  the  planning  process  and  intended  user. 
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I .  INTRODUCTION 


German  Army  light  transport  helicopter  regiments  operate 
45  Bell  UH-1D  helicopters  (see  Figure  1)  in  support  of  a  corps 
with  three  army  divisions.  A  maintenance  officer  or  "Lei ter 


Einaatz"  (the  author's  assignment  from  1989  to  1991)  in  the 
regiment's  maintenance  and  repair  battalion  supervises  the 
helicopter  fleet  maintenance  planning  and  mission  assignment. 
He  strives  to  keep  high  technical  and  operational  standards 
while: 

•  Meeting  all  necessary  inspections, 

•  Satisfying  all  mission  requirements, 

•  Fulfilling  special  events  such  as  NATO  exercises, 

•  Equitably  using  the  helicopters, 

•  Smoothly  operating  all  maintenance  facilities. 

This  thesis  derives  and  solves  integer  linear  programs  to 
assist  with  maintenance  planning  and  mission  assignment. 
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A.  BELL  UH-1D  INSPECTION  SYSTEM 

The  Bell  UH-1D  maintenance  cycle  (in  its  German  version) 
consists  of  1200  flight  hours  and  contains  16  different 
inspections  in  two  levels  (C  and  D) .  The  C-level  (see  Table 
1)  includes  relatively  easy  maintenance  and  part  replacement, 
the  D- level  (see  Table  2)  contains  costly  repair  overhauls 
lasting  three  to  five  weeks.  Each  inspection  takes  place  75 
flight  hours  after  its  predecessor  in  the  following  order: 


Cl ,  C2 ,  Cl ,  D1 ,  Cl ,  C2 ,  Cl ,  D2 ,  Cl ,  C2 ,  Cl ,  Dla ,  Cl ,  C2 ,  Cl ,  D3  , 


C  and  D  inspections  are  accomplished  in  disjoint  facilities 
with  different  technical  personnel.  The  C  inspections,  being 
relatively  easy,  can  be  performed  without  using  fixed 
installations  (e.g.  during  exercises) . 


TABLE  1 


C-LEVEL  (Maintenance) 

NAME 

DURATION 

Cl 

1  to  3  working  days 

C2 


2  to  5  working  days 


TABLE  2 


D-LEVEL  (Repair) 

NAME 

DURATION 

FLIGHT  HOUR 

D1 

3  weeks 

300 

D2 

4  weeks 

600 

Dla 

4  weeks 

900 

D3 

-  ■ 

5  weeks 

1200 

B.  CURRENT  PLANNING  PROCESS 

The  maintenance  officer  in  charge  of  the  planning  and 
mission  assignment  tasks  has  a  staff  of  up  to  six  soldiers 
experienced  in  the  fields  of  aircraft  repair  and  maintenance. 
Despite  access  to  a  personal  computer  (PC) ,  maintenance  and 
mission  assignments  are  currently  based  on  poorly  documented 
manual  procedures  which  rely  on  complicated  charts  and 
overview  boards . 

The  planning  process  breaks  into  two  related  pieces, 
yearly  and  short  term.  The  yearly  maintenance  and  event 
schedule  takes  a  three  man  team  up  to  five  weeks  to  produce. 
The  final  product  contains  the  flight  hours  assigned  to  each 
helicopter  each  month,  helicopters  assigned  C  and  D 
inspections  each  month,  and  helicopters  assigned  to  fly 


3 


special  events  (e.g.  operations  of  the  Allied  Mobile  Force  in 
northern  Norway  or  in  eastern  Turkey,  which  require  up  to  12 
helicopters  to  fly  a  total  of  more  than  1000  hours)  .  The 
short  term  plan  provides  individual  helicopter  mission 
assignments  for  up  to  one  week.  Time  needed  to  develop  the 
short  term  plan  varies  substantially  depending  on  mission 
requirements  and  helicopter  availability.  A  typical  short 
term  plan  requires  one  man  approximately  two  hours. 

1.  Yearly  Maintenance  and  Event  Schedule 

Input  to  the  yearly  maintenance  and  event  schedule 
includes : 

•  The  total  number  of  hours  the  helicopter  fleet  should  fly, 

•  Special  event  requirements, 

•  Pilot  Combat  Training  Programs  (CTP,  provide  required 
monthly  instructional  flight  hours) , 

•  Operating  data  from  past  years  on  availability  and 
reliability  of  the  (aging)  helicopter. 

The  yearly  schedule  has  four  primary  operational 
guidelines : 

•  The  flight  hour  reserve, 

•  The  percentage  of  operationally  ready  helicopters, 

•  The  upper  level  of  monthly  flight  hours  per  helicopter, 

•  The  maximum  monthly  C  and  D  inspection  capacities. 

The  flight  hour  reserve  is  each  helicopter's  available  flight 
hours  to  the  next  D  inspection,  summed  over  all  helicopters. 
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An  ideal  level  of  6,750  hours  (number  of  helicopters  *  0.5  * 
hours  between  D  inspections  or  45  *  0.5  *  300  =  6,750)  has 
historically  been  a  good  planning  factor.  A  level  above  7,500 
hours  has  endangered  future  equitable  use  of  the  maintenance 
facilities  (i.e.  a  disproportional  number  of  helicopters 
require  imminent  inspections),  a  level  below  5,500  hours  has 
endangered  the  capability  of  the  regiment  to  fulfill  all 
required  missions. 

The  percentage  of  operationally  ready  helicopters  measures 
the  number  of  helicopters  not  in  a  D  inspection  and  with 
remaining  hours  to  the  next  D  inspections  greater  than  zero. 
A  level  between  70%  and  90%  is  desired. 

No  more  than  30  flight  hours  should  be  assigned  to  each 
helicopter  each  month,  but  violations  are  sometimes  necessary 
( e.g .  for  events) . 

The  normal  output  capacity  for  D  inspections  is  three  per 
month.  If  planned  well  ahead,  an  output  of  four  per  month  is 
achievable,  but  reserve  capacity  for  exception  repairs  is  lost 
and  an  equally  high  output  in  the  succeeding  month  is 
unlikely.  The  C-inspection  level  capacity  is  easier  to 
manage.  Output  variations  from  one  to  six  helicopters  in  one 
week  are  possible. 
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2 .  Short  Term  Helicopter  -  Mission  Assignments 

The  short  term  planning  process  attempts  to  pick  the 

correct  helicopter  for  each  mission  while  observing: 

•  The  number  of  flight  hours  each  helicopter  has  until  the 
next  inspection 

e  The  planned  time  and  importance  of  the  next  inspection, 
s  The  mission's  flight  hour  requirement, 

s  The  current  equipment  status  and  the  mission's  equipment 
requirement , 

s  The  possible  multiple  use  of  the  helicopter  for  non- 
simultaneous  missions. 

This  daily  task  requires  experience  and  talent. 
Unfortunately,  an  organized  method  of  meeting  the  listed 
criteria  is  often  blocked  by  time  considerations. 

C.  OBJECTIVES  OF  THIS  THESIS 

The  objective  is  to  develop  underlining  algorithms  and 
propose  an  interface  for  a  self  sufficient  PC  based  decision 
support  system  as  an  interactive  instrument  to  reach  reliable 
and  completely  organized  helicopter  usage  and  maintenance 
plans . 

The  approach  undertaken  in  this  thesis  is  practical  and 
centered  around  two  optimization  models. 

Chapter  II  addresses  similar  concepts  in  the  existing 
literature.  Chapter  III  contains  the  developed  algorithms, 
the  proposed  interface  and  both  user  and  planning  session 
descriptions  for  the  decision  support  system.  Chapter  IV 
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contains  the  computational  performance  of  the  developed  models 
and  Chapter  V  provides  conclusions. 
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II .  RELATED  RESEARCH 


A  literature  search  did  not  reveal  a  model  with  the 
capabilities  needed  by  the  German  Army  Aviation  maintenance 
officer.  His  tasks  are  very  specific,  dependent  on  the  German 
version  of  the  Bell  UH-1D  preventive  maintenance  system  and 
the  local  maintenance  resources.  The  combination  of  a  yearly 
plan  with  a  short  term  mission  assignment  system,  the 
necessity  of  using  this  system  independently  and  the  exclusion 
of  manpower,  budget  and  logistic  issues  make  the  proposed 
model  unique. 

However,  decision  support  and  expert  systems  for  aviation 
maintenance  activities  have  been  studied  for  other  aircraft 
and  organizations.  Hackett  and  Pennartz  (1982)  provide  the 
basis  of  a  decision  support  system  for  the  maintenance 
aircraft  scheduling  process  of  an  United  States  (US)  Air  Force 
B-52  wing.  They  start  with  the  principle  that  computerization 
without  proper  management  does  not  improve  overall 
performance.  They  therefore  first  establish  maintenance 
responsibilities  and  management  procedures  for  an  operational 
cycle  that  considers  everything  from  the  yearly  flight  program 
to  the  daily  scheduling  update  operations.  They  characterize 
maintenance  scheduling  as  a  complex  process  with  a  high  degree 
of  uncertainty,  strict  requirements,  binding  constraints  and 
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insufficient  guidance.  In  their  view,  successful  usage  of 
optimization  models  in  the  different  planning  stages  depends 
on  appropriately  reducing  the  complexity  of  the  problem  with 
simplifying  and  structuring  techniques.  They  do  not,  however, 
develop  optimization  models  or  algorithms.  Key  aspects  of  a 
decision  support  system  are  reported  as : 

•  Communicability  with  the  user, 

•  Robustness  even  for  extreme  cases, 

•  Ease  of  Control . 

Shenolikar  (1983)  describes  a  decision  support  system  for 
automatic  test  equipment  systems  operations  management,  which 
is  closely  related  to  aircraft  maintenance  affairs. 
Optimization  models  are  again  addressed,  but  not  formulated. 
The  key  elements  of  a  generic  decision  support  system  are 
developed  as  follows: 

•  Knowledge  base  (with  proposed  algorithms  and  solution 
models) , 

•  Data  directory  and  data  base, 

•  Report  generator, 

•  Communications  (interface)  manager. 

A  series  of  theses  (see  Christensen  and  Pasadilla, 1991) 
advised  by  Professor  Martin  J.  McCaffrey  (Department  of 
Administrative  Science,  United  States  Naval  Postgraduate 
School)  develops  a  Naval  Aviation  Maintenance  Organizational 
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Activity  Strategic  Information  System  (OASIS)  and  an  Expert 
System  Advisor  for  Aircraft  Maintenance  Scheduling  (ESAAMS) . 
These  complex  systems  address  flight  and  maintenance 
activities,  but  include  also  human  resources  (manpower 
management,  training  and  qualification) ,  monetary  management 
(budget  considerations  and  accounting)  and  inventory 
structures  for  logistical  support.  These  programs  deal  with 
the  combined  use  of  present  information  systems  of  the  US 
Naval  Air  Systems  Command  and  design  applicable  knowledge 
bases,  databases  and  graphical  interfaces.  Again,  these 
systems  only  propose  optimization  models  and  algorithm  as 
future  work. 

In  addition  to  these  expert  systems  for  planning  aircraft 
related  maintenance  and  use,  the  literature  search  did  reveal 
an  optimization  model  concerned  with  helicopters  and  one 
dealing  with  military  aircraft  sortie  planning.  The  "Phoenix" 
model  (Brown,  Clemence,  Teufert  and  Wood,  1991)  includes 
procurement  and  retirement  schedules  for  the  US  Army's 
helicopter  fleet,  handling  16  different  helicopter  types  over 
25  years.  The  mission  assignment  problem  is  described  by 
Wallace  (1992) ,  who  develops  sortie  optimization  tools  for  the 
US  Air  Force. 

The  search  for  related  maintenance  planning  systems  in  use 
by  commercial  airlines  was  not  successful .  Commercial 
airlines  are  concerned  with  a  different  set  of  constraints 
(costs)  and  resources  (see  Talluri  and  Gopalan,  1993) . 
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III.  CONCEPT  OP  TEE  DECISION  SUPPORT  SYSTEM 

A.  STRUCTURE  AND  OVERVIEW 

The  system  organization  (see  Figure  2)  resembles  the 
underlying  manual  planning  process  and  consists  of  two  almost 
independent  parts: 

•  The  yearly  maintenance  and  event  planning  system, 

•  The  short  term  planning  system  for  mission  assignment 
covering  up  to  one  week. 


Planning  Data 


Yearly  Planning 
System 


* 


Maintenance 
Schedule 
Event  Decision 
Flight  Hour 
Distribution 
Statistics 
Graphical 
Overview 


Scnedule  Data 


V  / 


Update  Process 
User  Preferences 
Mission  Data 


Short  Term 
Planning  System 


Mission  Assignments 
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Each  subsystem  has  the  ability  to  respond  to  user  preferences 
and  demands.  The  scheduled  inspection  periods  are  input  to 
the  short  term  planning  system  which  forms  a  connection 
between  the  two  parts.  There  is  no  direct  feedback  out  of  the 
short  term  planning  process  into  the  yearly  system,  because  a 
continuous  change  of  the  yearly  plan  destroys  the  underlying 
planning  policy.  There  are  good  possibilities  to  get  a  yearly 
plan  "back  on  track"  when  unforeseen  trouble  strikes.  The 
experienced  user  has  to  decide,  when  a  complete  renewal  of  the 
yearly  plan  is  necessary.  Every  subsystem  result  can  and 
should  be  adapted  manually.  Results  are  proposals,  providing 
feasible  starting  points  for  further  planning  and  adapting  to 
reality.  All  the  important  existing  constraints  are  present 
in  the  different  models,  but  elastic  violations  are  possible 
(like  real  decision  making)  by  paying  adequate  penalties. 

B.  THE  YEARLY  PLANNING  SYSTEM 
1.  Basic  Specifications 

The  yearly  planning  system  forms  the  basis  for  all 
maintenance  scheduling  and  mission  assignment.  It  recognizes 
initial  conditions  and  requirements  from  the  planning  data  and 
implements  the  planning  policy.  The  essence  of  this  subsystem 
is  an  integer  linear  program.  The  necessary  input  can  be 
expressed  as : 

•  Planned  flight  hours  per  month  for  the  fleet. 


12 


•  Special  event  requirements  (time,  flight  hours,  number  of 
helicopters,  maintenance  possibilities) , 

•  D- level  maintenance  capacity, 

•  Status  of  each  helicopter  (remaining  flight  hours  to  next 
D  inspection) . 

The  final  output  includes  : 

•  Recommended  flight  hours  for  each  helicopter  each  month, 

•  Recommended  D  inspection  decision  for  each  helicopter  each 
month, 

•  Helicopter  assignment  to  special  events, 

•  Monthly  statistics  with  respect  to  flight  hour  supply  and 
helicopter  availability. 

A  Pascal  program  transforms  the  yearly  solution  (containing 
monthly  decisions)  into  a  solution  containing  weekly  results 
and  C  inspection  decisions.  A  description  of  this  program 
follows  the  yearly  planning  model. 

2.  The  Yearly  Planning  Model 

The  model  specifications  in  a  basic  format  can  be 
described  as  follows : 

■  INDICES: 

t  month  (e.g.  1,2,..., 12), 

h  helicopter  identification  (e.g.  1,2,..., 45), 
e  event  (e.g.  1,2,...,E). 

■  DATA: 

PLHRSt  planned  flight  hours  for  month  t, 

EVENTHRSe  flight  hours  required  for  each  helicopter 

participating  in  event  e, 
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EVENTNMBe 

DMAX 
PRODHRS 

OPTSUP 
MININSPt 
MAXHRS 

■  VARIABLES : 

BINARY  VARIABLES 

Zhe  one  if  helicopter  h  is  assigned  to  event  e, 

Yht  one  if  helicopter  h  is  assigned  a  D  inspection 

in  month  t . 

POSITIVE  VARIABLES 

Xh.t  flight  hours  assigned  to  helicopter  h  below 

MAXHRS  in  month  t, 

XEht  flight  hours  assigned  to  helicopter  h  in  month 

t  exceeding  MAXHRS  or  in  addition  to  an 
inspection  or  event  assignment, 

REMHRSht  flight  hours  until  next  D  inspection  for 
helicopter  h  at  end  of  month  t, 

■  MODEL : 

*  Minimize  the  sum  of  all  weighted  elastic  penalties  and  XEhc 
hours . 


number  of  helicopters  required  for  event 
e, 

maximum  number  of  D  inspections  per  month, 
additional  flight  hours  (e.g.  300) 

obtained  per  inspection, 
desired  flight  hour  supply  (e.g.  6,750), 
minimum  number  of  inspections  in  month  t, 
maximum  regular  monthly  flight  hours  for 
each  helicopter  (e.g.  30)  . 
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subject  to  the  constraints: 


★ 


45  E 

( 1 )  E  [ Xh.  t e  +  E  EVENTHRS g *Zh  e)  ~PLHRSC 

h*l 


t* 1. .12 


e*l 


(2) 


45 


E 


Yht<=DMAX 


t=l. . 12 


45 

(3)  E  rh,t ZMININSPt 

h^i 


t=l . . 12 


(4)  REMHRSh  t=REMHRShit_x+PRODHRS*Yhit.-Xh  t~XEh  t~ 

B 

E  EVENTHRSe*Zh  g 

e*l 

A=l. .45, t=l. .12 


(5) 


45 


E 


REMHRSh  t>  ±  OPTS  UP 


t=l. .12 


12 

(6)  E  t^.t+^,t+E  ^VEWIWRS.*ZAf.]  ±{f^PLHRSt)  /45 

t=i 


£ 

I 

e=l 


12 

E 

c*i 


h=l . .45 
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(7) 


45 


£  Zh  e- EVENTNMBe 


e=l .  .  E 


(8)  Zhie  +  Yh'C+(XhiC/MAXHRS)  si 


h=l.  .45,  e=l.  .£,  t  =  l.  .12 


■  REMARKS : 

•  The  =  signify  elastic  constraints. 

•  REMHRSh  0  provide  the  initial  status  of  each  helicopter. 

■  DESCRIPTION  OF  THE  CONSTRAINTS : 

(1)  Meet  planned  flight  hours  each  month  or  incur  an  elastic 
penalty. 

(2)  Comply  with  the  maintenance  capacity  or  incur  an  elastic 
penalty. 

(3)  Perform  a  minimum  number  of  inspections  each  month. 

(4)  Calculate  remaining  hours  until  the  next  inspection  for 
each  helicopter  at  end  of  each  month. 

(5)  Provide  the  desired  flight  hour  supply  or  incur  an  elastic 
penalty. 

(6)  Provide  equitable  use  of  the  helicopter  fleet  or  incur  an 
elastic  penalty. 

(7)  Enforce  number  of  required  helicopters  for  each  event. 
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(8)  Allow  each  helicopter  to  participate  only  in  a  special 
event,  be  inspected,  or  be  assigned  regular  flight  hours 
Xh t  without  penalties  each  month.  Assignment  of  flight 
hours  XEh  c  despite  an  event  or  inspection  is  possible,  but 
incurs  the  penalty  associated  with  the  variable  XEh c . 

C.  TRANSFORMATION  OF  OPTIMIZATION  RESULTS 

A  PASCAL  program  named  "MOSCH"  (Monthly  SCHedule) 
transforms  the  model  solution  into  an  editable  form  (see 
Appendix  C)  .  The  objective  is  to  translate  the  monthly 
decision  variables  into  weekly  results.  Instead  of  operating 
with  a  genera]  maintenance  duration  time  for  the  D  inspections 
of  one  month,  the  more  realistic  values  for  the  respective 
D1 , D2 , Dla  and  D3  overhauls  are  utilized.  The  three  required 
C  inspections  between  every  two  D  inspections  are  also  added 
(recall  the  relative  ease  of  planning  these  inspections) .  The 
basic  approach  can  be  described  as  follows: 

•  Process  each  helicopter  ordered  by  initial  flight  hours 
until  next  D  inspection. 

•  For  each  planned  D-level  inspection,  schedule  the 
inspection  as  soon  as  possible  starting  two  weeks  prior  to 
the  beginning  of  its  planned  inspection  month.  Ensure  no 
planned  hours  or  event  conflict  exists . 

•  If  the  starting  week  is  feasible,  check  inspection 
workload  and  choose  next  available  week  with  acceptable 
workload  level . 

•  Schedule  the  inspection  over  its  actual  duration  and  check 
again  for  scheduling  conflicts. 

•  Schedule  all  intermediate  C  inspections  based  on  remaining 
hours  to  the  next  inspection  for  each  helicopter. 
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•  Note  C  inspection  requirements  during  events. 

•  Print  the  schedule,  a  graphical  overview  and  all  required 
statistics . 

0.  THE  SHORT  TERM  PLANNING  SYSTEM 

1.  Basic  Specification 

The  short  term  planning  system  assigns  helicopters  to 
missions  while  observing  requirements  of  the  yearly  plan.  It 
is  proposed  as  an  interactive  program  with  a  graphical  user 
interface  and  an  optimization  model  to  perform  mission 
assignment.  Additional  characterizations  of  the  complete 
short  term  planning  system  are  given  later  in  this  chapter. 

The  following  addresses  the  optimization  model,  which  can 
be  used  independently  from  the  proposed  system.  Necessary 
input  requirements  for  this  mission  assignment  model  are: 

•  Status  of  each  helicopter  with  respect  to  availability, 
equipment,  flight  hours  and  inspection  plan, 

•  Mission  requirements  with  respect  to  flight  hours  and 
equipment . 

The  output  includes  an  assignment  proposal  for  each  mission. 
Some  sorties  require  a  spare  or  backup  helicopter  to  ensure 
mission  success.  The  optimization  model  also  decides  the 
assignment  of  spare  helicopters. 

2 .  The  Short  Term  Helicopter  -  Mission  Assignment  Model 
This  model  chooses  the  best  helicopter  and  (if 

required)  spare  helicopter  for  each  mission.  It  takes  the 
following  helicopter  properties  into  account: 
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•  A  user  preference  for  mission  assignment, 

•  The  relative  importance  of  the  next  inspection,  expressed 
in  weeks  required  for  the  completion, 

•  The  time  gap  until  the  next  planned  inspection, 

•  The  flight  hours  remaining  until  the  next  inspection, 

•  The  current  equipment  condition, 

•  Restrictions  for  night  or  instrument  flights, 

•  The  overall  availability  during  the  planning  time  frame 
(no  ongoing  mission,  event  assignment  or  inspection) . 

Mission  requirements  are: 

•  Equipment, 

•  Flight  hours, 

•  Backup  demand, 

•  Time  window, 

•  Night  or  instrument  flight  capability. 

The  equipment  requirement  is  one  of  the  following: 

•  11  seats, 

•  5  seats, 

•  400  kg  exercise  load, 

•  Internal  tank  left, 

•  Internal  tank  right, 

•  Winch. 

The  number  of  items  between  any  two  equipment  types  on  the 
above  list  (noncircular)  represents  the  relative  difficulty  or 
time  needed  to  change  between  the  two  equipment  types. 
Therefore,  a  change  between  400  kg  exercise  load  and  5  seats 
is  relative  easy  to  do  in  comparison  to  a  change  between  11 
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seats  and  a  winch.  This  approach  is  chosen,  because  data  for 
a  more  realistic  change-over  matrix  is  currently  not 
available . 

A  mission  -  helicopter  assignment  is  only  feasible,  if  the 
helicopter  is  available  (expressed  in  a  0-1  availability 
subset) ,  the  helicopter  is  not  assigned  to  a  simultaneous 
mission,  and  mission  requirements  don't  collide  with  flight 
restrictions  of  the  helicopter.  The  mission  requirements  fall 
into  one  of  the  following  codes: 

•  0  =  no  operation  limitations, 

•  1  =  helicopter  restricted  to  Combat  Training  Flights  (CTP) 
because  of  insufficient  technical  standard  (e.g.  non 
critical  vibrations) , 

•  2  =  helicopter  restricted  to  Visual  Flight  Rules  (VFR) 
missions  because  of  absence  of  Instrumental  Flight  Rules 
(IFR)  equipment, 

•  3  =  helicopter  restricted  to  daylight  flights  only, 

because  of  absence  of  night  sight  equipment . 

The  model  structure  can  be  described  as  follows: 

■  INDICES : 

h  helicopter  identification  (e.g.  1,2,..., 45), 
m  mission  identification  (e.g.  1,2,...,M), 
i  simultaneous  mission  group  (e.g.  1,2,..., I). 

■  DATA: 

Reminsph  remaining  hours  to  the  next  inspection  for 
each  helicopter  h, 

Length*,  flight  hours  for  mission  m. 


20 


Costuseh>m  penalty  for  assigning  helicopter  h  to  mission 

m, 

Spare  subset  of  all  missions  which  require  a  spare 

helicopter, 

Overlap^  set  of  all  missions  in  group  i. 

■  VARIABLES : 

FMh  m  binary  assignment  decision  for  helicopter  h 

and  mission  m, 

FSh>m  binary  assignment  decision  for  helicopter  h 

used  as  a  spare  for  mission  m. 

■  MODEL : 

*  minimize 

E  E  Costuse 

h*  1  m=  1 


*  subject  to  the  constraints 

<11  E  ™».--l  W-1..M 

h=l 


(2)  EFS»..=1 

h=i 


m-1.  .M  s.t.me  Spare 
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h= 1 . .45 


M 

(3)  £  [Lengths  (FMhia+FSh  m) }  zReminspt 

m*l 


(4)  *i 


h= 1. . 45, i=l . . I 


M 


(5) 


A-l. .45 


JD*1 


■  DESCRIPTION  OF  THE  CONSTRAINTS : 

(1)  Assign  exactly  one  helicopter  to  mission  m. 

(2)  Assign  a  spare  helicopter  to  mission  m  if  required. 

(3)  Each  helicopter's  flight  hour  use  can  not  exceed  its 
remaining  hours  until  inspection. 

(4)  A  helicopter  can  not  be  assigned  to  more  than  one  mission 
being  conducted  at  the  same  time. 

(5)  Assign  each  helicopter  to  at  most  one  mission  or  incur  an 
elastic  penalty. 

The  variable  Costusehfm  is  a  combination  of  weighted  penalties 

for  not  choosing  a  helicopter  with: 

•  the  highest  priority  score, 

•  the  most  expensive  following  inspection  (expressed  in 
required  completion  time) , 
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•  the  least  expensive  equipment  changeover  (expressed  in 
equipment  code  differences) , 

•  the  smallest  time  gap  to  the  following  inspection. 
Included  is  also  a  penalty  for  selecting  a  helicopter 
previously  assigned  a  mission  during  the  model's  time  frame. 

A  reformulation  of  the  short  term  helicopter  -  mission 
assignment  problem  as  a  network  flow  model  is  possible. 
However,  due  to  the  success  of  the  model  described  above  (see 
computational  results  in  Chapter  IV)  and  the  potential  size  of 
the  network  structure,  this  approach  is  not  further 
investigated. 

E.  USER  DESCRIPTION,  PLANNING  SESSIONS  AND  INTERFACE  DESIGN 

To  fully  understand  the  role  of  the  two  optimization 
models,  it  is  necessary  to  present  the  context  of  the 
appropriate  planning  environment  including  a  description  of 
the  users.  The  yearly  model  is  primarily  employed  once  a  year 
by  a  well  educated  user  and  therefore  can  be  used  as 
demonstrated  in  chapter  IV  without  an  additional  interface. 
The  applicability  of  the  short  term  model  to  assist  with 
mission  assignment  is  also  demonstrated  in  chapter  IV. 
Unfortunately,  the  intended  user  for  the  short  term  model 
lacks  substantial  familiarity  with  a  personal  computer. 
Therefore  this  section  proposes  a  user  interface  for  the  short 
term  model  to  assist  with  complex  input  and  data  manipulation 
needs . 
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1.  Yearly  Planning  Syataa 

a.  User  Description 

The  yearly  planning  system  user  should  have  the 
following  training,  experience  and  educational  requirements: 

•  Complete  familiarity  with  the  overall  planning  process, 

•  Computer  skills  including  input/output  problems  and 
handling  of  textfiles, 

•  Basic  skills  in  linear  programming  and  familiarity  with 
applicable  software  packages. 

The  use  of  the  system  by  the  maintenance  officer  in  charge 
(usually  with  a  master's  degree  in  air  and  space  technology  or 
mechanical  engineering)  is  recommended,  but  delegation  to  a 
computer  experienced  subordinate  is  possible.  Every 

maintenance  and  repair  battalion  also  has  a  " S6~Offizier" ,  who 
is  responsible  for  data  processing  and  the  computer 
facilities . 

b.  Description  of  a  Planning  Session 

After  preparing  and  screening  the  planning  data 
(event  information,  the  planned  monthly  flight  hours,  the 
maintenance  facility  capacities  and  the  initial  status  of  each 
helicopter) ,  a  textfile  is  filled  with  the  required  data  in  a 
simple  coded  form.  Preferences  and  prefixed  maintenance 
periods  can  be  included.  It  is  helpful  to  transform  the 
achieved  optimization  model's  solution  into  the  more  organized 
weekly  schedule  (now  with  C  inspection  recommendations 
included)  for  further  analysis,  using  a  transformation  program 
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as  described  above.  Statistics  and  a  graphical  overview  can 
be  prepared  for  command  reviews.  The  overall  time  frame  for 
a  planning  session  as  described  depends  on  the  familiarity 
with  the  system,  the  solver,  the  capacity  of  the  personal 
computer  and  the  difficulty  of  the  plan.  Based  on 
computational  results  (see  Chapter  IV)  ,  approximately  two 
working  days  should  be  sufficient  for  multiple  iterations  of 
data  input,  computer  runs,  solution  review,  and  manual 
modification  of  the  schedule. 

2 .  Short  Term  Planning  System 

In  addition  to  the  mission  assignment  optimization 
model  as  described  above,  the  proposed  system  (see  Figure  3) 
contains  graphical  interfaces  including  an  update  task  screen 
for  helicopter  status  changes,  a  report  section  that  includes 
the  maintenance  status  for  each  helicopter,  and  a  screen  for 
generating  the  updated  short  term  maintenance  plan, 
a.  Interface  Design 

Interface  proposals  for  each  screen  can  be  found  in 
Appendix  E.  These  interfaces  need  a  not  yet  developed 
communications  manager  for  screen  control  and  initiating 
computational  intermediate  steps  in  the  knowledge  base,  using 
the  database  information. 

Jb.  User  Description 

The  recommended  user  for  this  part  of  the  planning 
system  is  one  of  the  two  senior  NCO's  in  the  technical  command 
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Figure  3 


center.  These  are  usually  experienced  soldiers  with  education 
as  aircraft  technicians  and  training  in  maintenance  planning 
operations.  Their  computer  skills  can  be  basic.  A  practical 
briefing  of  a  few  days  duration  should  be  sufficient  to  enable 
this  group  of  users  to  operate  the  subsystem.  Expertise  will 
be  developed  quickly  during  daily  employment.  The  system 
design  should  include  safety  features  against  wrong  input  and 
confirmation  procedures  to  prevent  unintentional  utilization. 
A  simple  interface  structure,  easy  accessible,  controllable 
and  with  convenient  operation  possibilities  will  ensure  proper 
use  of  the  system. 
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c.  Description  of  a  Planning  Session 

(1)  Update  Process.  Every  time  the  technical 
command  center  gets  a  vocal  (telephone)  or  written  report  of 
helicopter  status  changes,  an  update  screen  allows  the 
revision  for  the  selected  helicopter.  These  changes  include: 

•  Failure  of  an  operationally  ready  helicopter, 

•  Category  of  the  failure, 

•  Estimated  completion  times  for  repairs  or  maintenance 
measures , 

•  Flight  hour  consumption, 

•  Equipment  change  overs, 

•  Special  operation  limitations, 

•  Renewed  availability  (mission  or  maintenance  measurement 
completion) . 

The  helicopter  in  question,  identified  by  number,  will  be 
selected  and  a  menu  of  instances  appears.  Each  instance  can 
be  selected  and  changed  within  a  range  of  offered 
possibilities.  The  confirmation  of  the  changes  concludes  the 
update  operation.  An  immediate  report  generation  should  be 
included. 

(2)  Mission  Assignment  Process.  After  determining 
the  time  frame  for  the  missions  in  question  (from  one  day  to 
a  week) ,  a  table  asks  for  the  mission  requirements  separated 
by  a  mission  identification  number.  Simultaneous  missions  are 
marked  with  a  common  group  index.  Other  needed  data  include 
flight  hour  requirements,  estimated  start  and  landing  times, 
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description  of  the  mission  (combat  training  program  or  mission 
order  number) ,  spare  helicopter  requirement,  equipment 
requirement  and  flight  restrictions.  The  short  term 
optimization  model  gives  an  assignment  proposal  for  each 
mission  and  spare  requirement.  After  reviewing  the  result, 
the  user  can  accept  the  optimization  proposal  (in  part  or 
whole),  rerun  the  optimization  model,  or  manually  edit  the 
selection.  The  process  finishes  with  a  printed  result  (on 
screen  or  hardcopy)  of  the  sortie  plan. 

(3)  Reports  and  Statistics .  A  combined  status 
report  for  a  particular  helicopter  or  the  whole  fleet  can  be 
selected  at  any  time.  This  feature  helps  the  supervisor  in 
his  control  functions  and  generates  required  summaries  for  the 
next  higher  command  levels.  The  statistics  include: 

•  Percentage  of  available  helicopters, 

•  Percentage  of  helicopters  on  mission, 

•  Percentage  of  helicopters  in  unplanned  maintenance, 

•  Percentage  of  helicopters  in  planned  maintenance, 

•  Flight  hour  reserve, 

•  Flight  hour  consumption  so  far  for  month  and  year, 

•  Available  flight  hours  for  rest  of  month  and  year. 

Simple  selection  of  the  offered  choices  should  be  sufficient 
for  generating  the  report  and  the  statistics. 
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(4)  Short  Term  Maintenance  Plan.  This  special 
screen  enables  the  user  to  issue  his  orders  to  the  maintenance 
and  repair  level  facilities.  An  updated  extract  of  the  yearly 
maintenance  schedule  is  generated  by  selecting  helicopters  out 
of  a  candidate  list,  which  includes  helicopters  already 
scheduled  for  inspection  and  those  that  will  soon  need 
inspection.  The  screen  allows  for  comparison  between  the 
yearly  plan  and  the  updated  short  term  version. 
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IV.  COMPUTATIONAL  EXPERIENCE 


A.  THE  YEARLY  MODEL 

Two  data  sets  (1989  and  1991)  taken  from  the  Army  Aviation 
Regiment  30  in  Niederstetten  Air  Base  (Germany)  show  the 
applicability  of  the  yearly  model.  The  1989  data  (see  Table 
3)  requires  only  two  major  events  and  is  representative  of  a 
modestly  difficult  planning  year.  The  1991  data  (see  Table  4) 
pictures  a  difficult  planning  year  consisting  of  four 
demanding  events  and  a  nonuniform  yearly  flight  hour  program. 
Unfortunately,  the  initial  status  of  each  helicopter  (hours 
remaining  until  the  next  inspection  and  inspection  type)  is 
not  known  for  either  data  set.  Realistic  estimates  are  based 
on  the  fleet's  flight  hour  reserve,  the  percentage  of 
operationally  ready  helicopters,  and  the  author's  personal 
experience.  All  computational  results  are  obtained  using  an 
IBM  compatible  486/33  Personal  Computer.  The  model  is 
generated  using  GAMS  (Brooke,  Kendrick  and  Meeraus,  1992)  and 
solved  using  ZOOM  (Brooke,  Kendrick  and  Meeraus,  1992) ,  XA 
(1993)  and  OSL  (1991) . 

The  GAMS  code,  which  implements  the  yearly  model  can  be 
found  in  Appendix  A.  The  model  reports  approximately: 

•  1,200  constraints  in  10  blocks, 

•  2,600  variables  in  18  blocks  (600  discrete  and  2,000 
continuous  variables) , 
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•  9,000  non  zero  elements. 


Attempts  to  solve  realistic  instances  of  the  yearly  model 
optimally  result  in  significant  computational  effort. 
Heuristic  solution  procedures  were  therefore  investigated  and 
found  to  provide  quality  solutions  using  substantially  reduced 


TABLE  3 
DATA  SET  1989 


Month 

Planned  Flight  Hours 

Eve 

Helicopti 

nt 

»r /Hours 

January 

610 

February 

630 

March 

700 

April 

610 

May 

900 

1  • 

80 

June 

727 

July 

610 

August 

680 

September 

850 

October 

680 

November 

610 

December 

749 

5 

65 

3 1 


TABLE  4 


DATA  SET  1991 


Month 

Planned  Flight  Hours 

Evt 

Kelicopt 

snt 

er/Hours 

January 

526 

February 

526 

March 

1278 

10 

100 

April 

602 

May 

1128 

8 

75 

June 

827 

July 

526 

August 

602 

September 

1053 

10 

62 

October 

677 

November 

537 

December 

743 

4 

65 

computation  time.  Two  heuristic  procedures  are  used,  "LP- 
Rounding"  and  "Cascade".  Both  solution  procedures  rely  on  the 
relaxed  integer  solution  being  a  valid  information  transfer 
tool  for  the  pure  integer  task. 

■  LP- Rounding:  After  solving  the  linear  programming 

relaxation,  binary  variables  with  values  near 
zero  or  one  are  rounded  respectively  down  or 
up  to  the  nearest  integer  value  and  fixed. 
This  process  can  be  repeated  indefinitely,  but 
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for  this  application  two  iterations  diminish 
the  number  of  decision  variables  sufficiently 
to  allow  for  a  successful  solve  of  the  reduced 
mixed  integer  program. 

■  Cascade :  A  number  of  possible  implementations  exist  for 
this  heuristic  technique.  For  the  test  problems 
considered,  solving  twelve  (one  for  each  month) 
linear  integer  programs  works  best.  The  first  of 
these  twelve  problems  relaxes  the  integer 
restriction  for  variables  associated  with  months 
two  to  twelve.  After  solving,  a  new  problem  is 
generated  with  month  one's  variables  set  equal  to 
the  values  obtained  in  the  previous  relaxation, 
month  two's  variables  constrained  to  be  integer, 
and  months  three  to  twelve  variables  relaxed. 
This  process  repeats  until  the  binary  variables 
for  all  twelve  months  have  been  restricted  to  be 
integer . 

Independent  of  the  heuristic  solution  procedure,  several 
parameter  settings  are  especially  important  (see  Appendix  A 
for  a  complete  list) .  After  several  test  runs  using  various 
parameter  values,  best  results  are  achieved  for: 

•  An  upper  bound  on  XEht  (flight  hours  assigned  to 
helicopter  h  exceeding  regular  usage  in  month  t)  of  30, 
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•  A  penalty  value  of  0.1  for  XEh>t, 

•  A  penalty  value  of  0.01  for  the  elastic  variables  of 
constraint  (6)  ,  which  provide  for  the  equitable  use  of  the 
helicopter  fleet. 

More  important  than  the  actual  value  is  the  relative  magnitude 
of  a  penalty  with  respect  to  the  other  penalties. 
Specifically,  inequable  use  of  the  helicopter  fleet  is  viewed 
as  an  order  of  magnitude  less  important  than  excessive  use  of 
an  individual  helicopter  (ratio  1/10)  . 

Solutions  from  the  different  solvers  (ZOOM, XA, OSL)  and  the 
two  solution  methods  for  the  1991  data  set  can  be  compared  in 
Appendix  B.  ZOOM  achieves  its  lowest  costs  schedules  using  a 
specified  branching  order  based  on  the  natural  hierarchy  of 
the  time  dependent  discrete  variables.  The  solvers  XA  and  OSL 
are  applied  with  the  default  branch  and  bound  schemes. 

The  quality  of  the  solutions  does  not  depend  on  the  solver 
or  the  heuristic,  but  ZOOM  requires  substantially  more  time 
than  XA  or  OSL,  and  the  Cascade  procedure  requires  slightly 
more  time  than  the  LP-Rounding  method.  All  achieved  solutions 
exceed  the  initial  relative  optimality  tolerance  values 
(OPTCR)  of  0.10  or  0.15  (guaranteeing  a  solution  within  10%  or 
15%  of  optimal  respectively) .  These  tolerances  apply  to  each 
individual  program  run  and  can  therefore  not  serve  as 
computation  stopping  conditions  for  the  final  solution.  The 
solutions  presented  in  Appendix  B  have  objective  function 
values  between  11%  and  36%  of  optimal  (using  an  initial  cost 
value  of  100) .  However,  the  resulting  schedules  are  face- 
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valid  (i.e.  judged  implementable  by  expert  opinion)  and 
considered  superior  to  manually  created  plans. 

Table  5  and  6  compare  the  manual  and  optimization  model's 
yearly  schedule  for  the  two  data  sets.  Without  any  additional 
manual  editing,  the  selected  system  schedule  for  1991  meets 
all  requirements  (percentage  of  operationally  ready 
helicopters  and  flight  hour  reserve  are  in  the  desired  ranges) 
and  violates  the  realistic  3  0  hour  planning  goal  and  the 
planned  hour  per  month  constraints  less  than  the  manual 
solution  (fewer  planning  conflicts) .  The  computed  schedule 
for  the  data  set  of  1989  shows  similar  advantages.  The 
planned  hours  per  month  are  now  met  exactly.  Production  time 
for  both  system  schedules  (including  time  needed  for  manual 
adjustment  work)  constitutes  only  a  small  proportion 
(approximately  1/12)  of  the  usual  manual  completion  time. 
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TABLE  5 


COMPARISON  SYSTEM  SOLUTION  -  MANUAL  ACHIEVED  SOLUTIONS 


Abbreviations :  Plan  -  Planned  Flight  Hours  (yearly  flight  program), 

Man  •  Manual  Planned  Flight  Hours 

|Dev{  •  absolute  Deviation  from  PI.  Hours,  Com  •  Computed  Planned  Flight  Hours 


PI  am 

Itll 

Compl 

Solve 

icated 

r:  OSL 

set 

Soluti 

on  Proc 

edure : 

Case 

ide 

Moatk 

D 

2 

B 

B 

5 

6 

B 

B 

9 

10 

11 

12 

Total 

Plan 

524 

424 

122a 

402 

B 

•  27 

124 

402 

B 

B 

B 

•02* 

Nan 

41* 

B 

m 

B 

1 

4*0 

B 

B 

n 

B 

*40 

B 

•0** 

■ 

B 

B 

B 

B 

21 

B 

B 

B 

B 

B 

2*4 

m 

*2* 

B 

B 

402 

11*4 

B 

*24 

404 

10*2 

B 

*27 

B 

*!•• 

:o*v; 

■ 

B 

B 

*4 

m 

B 

B 

B 

B 

B 

B 

Operationally  ready  helicopter  percentage  (70% 

. 90%  is  desired) 

B 

B 

Average 

•  2  2 

•  22 

7*  4 

B 

7*. 4 

•  2  2 

•  2.2 

•  0 

•  0 

— 

•  2.2 

— 

■  4  4 

•  2.2 

•  0  4* 

El 

•  0 

•  4.4 

•  4  4 

B 

U.f 

•  0 

•  2.2 

•  2.2 

•4.4 

•  0 

B 

B 

B 

Deviation  from  30  hours  goal  in  hours 

B 

Total 

Nan 

40 

20 

B 

B 

2* 

B 

40 

B 

B 

2* 

40 

B 

2*0 

Con 

B 

B 

B 

B 

2* 

14 

B 

20 

B 

B 

B 

B 

144 

Number 

of  D- Inspect ion  completions 

B 

B 

Total 

Nan 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

11 

B 

B 

B 

B 

B 

B 

B 

B 

B 

2* 

j  Flight  hour  reserve 

(desired  level  is 

6750) 

B 

B 

Average 

E_ 

122I 

•  *•1 

•••i 

42(1 

4421 

4701 

4701 

•••i 

•••i 

7141 

B 

•ail 

■ 

B 

•  •*4 

•  21* 

4212 

*422 

*44* 

•  07* 

••7* 

*422 

•  117 

420* 

40*7 

4122 

TABLE  6 


COMPARISON  SYSTEM  SOLUTION  -  MANUAL  ACHIEVED  SOLUTIONS 


(f or  Abbreviation*  aee  Table  5) 


Simpl 

Solve 

e  set 

r:  XA 

Solu 

tion  pr 

ocedur< 

:  LP- 

Round in 

g 

Month 

fl 

2 

4 

5 

6 

B 

8 

9 

10 

11 

12 

Total 

B 

B 

B 

•  10 

B 

*a» 

•  10 

B 

•so 

B 

B 

B 

•  1*4 

Man 

B 

440 

•  •0 

B 

•  10 

700 

•so 

440 

_ 

•  ao 

B 

•  404 

B 

B 

B 

B 

B 

B 

B 

ao 

B 

B 

B 

B 

104 

Co»* 

B 

B 

■»a7 

•  10 

•  40 

•so 

B 

B 

B 

•  1*4 

|| 

B 

B 

B 

B 

B 

B 

B 

m 

B 

B 

B 

B 

0 

|  Operationally  ready  helicopter  percentage  {70%.. 90% 

is  desired) 

B 

B 

Average 

r__ 

•a. a 

•  4  4 

•  0 

B 

B 

B 

77  4 

7S  4 

n  i 

•4  .  S 

B 

•4  * 

■’s  Mm 

•a. a 

B 

•a. a 

•  0 

B 

77.4 

77.4 

7*. 4 

•  4.* 

B 

B 

’•  4*411 

Deviation  from  0  hours  goal  in  hours 

B 

B 

B 

Total 

El 

B 

B 

B 

10 

as 

B 

B 

B 

as 

B 

B 

»a 

Bl 

B 

as 

ao 

B 

B 

B 

10 

10 

B 

B 

B 

B 

77 

Number 

of  D- Inspection  completions 

B 

Total 

Man 

B 

B 

B 

B 

B 

B 

B 

B 

B 

aa 

m 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

17 

Flight 

hour  reserve 

(desired  level  is 

6750) 

B 

B 

Average 

Man 

mi 

•  744 

•  •44 

•  444 

4144 

4S14 

•  S04 

•  404 

•444 

4474 

■ 

4*7*. 11 

■ 

•  7*4 

•  744 

•444 

•4S4 

•4*4 

4*at 

•  SI* 

•  41* 

•  44* 

•  40* 

•a** 

•aso 

•447.411 

B.  THE  SHORT  TSRM  HELICOPTER  -  MISSION  ASSIGNMENT  MODEL 

The  short  term  model  is  tested  using  data  based  on  past 
experience  in  mission  assignment.  A  sample  test  problem 
(including  solution)  can  be  found  in  Tables  7A  and  7B.  This 
20  mission  example  represents  a  normal  one  day  assignment 
task.  Initial  input  data  is  listed  in  Appendix  D  and  XA  is 
the  solver.  The  model  is  also  tested  successfully  with  a 
highly  complex  40  mission  example.  This  case  has  demand  for 
34  missions  with  18  spare  requirements  and  for  an  unplanned 
exercise  requesting  six  helicopters  (five  with  45  required 
flight  hours  each  and  one  with  22  required  flight  hours) . 

The  model  handles  the  test  cases  smoothly  when  using  an 
IBM  compatible  486/33  Personal  Computer.  It  produces 
solutions  within  one  to  three  minutes.  All  achieved  test 
solutions  have  objective  values  within  five  percent  of 
optimality. 

The  GAMS  code  implementing  the  short  term  model  can  be 
found  in  Appendix  D.  The  default  branch  and  bound  scheme  for 
the  XA  solver  is  used. 

A  comparison  of  manual  and  computed  assignments  is 
difficult  and  not  appropriate  when  acknowledging  the  very 
practical  purpose  of  the  system.  A  program  of  several  months 
in  an  actual  environment  should  be  employed  to  evaluate  the 
utility  of  the  model.  Tests  with  realistic  mission  sets 
however  show  consistent  and  appropriate  helicopter  selections, 
which  pass  the  "common  sense"  test.  Acknowledged  advantages 
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TABLE  7A 


MISSION  ASSIGNMENT  EXAMPLE 
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TABLE  7B 


MISSION  ASSIGNMENT  EXAMPLE 


Spare  helicopter  required  for  mission 


4 

5 

6 

7 

11 

12 

13 

14 

15 

20 

Selected 

spare  helicopter 

Ll. 

16 

17 

17 

14 

12 

17 

20 

14 

8 

of  system  solutions  are  the  absence  of  conflicting  assignments 
caused  by  user  error  (given  correct  input)  and  the 
substantially  reduced  development  time. 
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V.  CONCLUSION 


This  thesis  develops  two  optimization  models  and  proposes 
an  interface  for  a  self  sufficient  PC  based  decision  support 
system  as  an  interactive  instrument  to  construct  reliable  and 
completely  organized  helicopter  usage  and  maintenance  plans. 

The  yearly  maintenance  and  event  planning  model  produces 
face-valid  schedules  in  substantially  less  time  than  current 
manual  techniques.  The  proposed  procedure  is  structured, 
outcomes  can  be  stored  for  reports,  command  reviews,  and  as  a 
base  for  future  planning. 

Using  the  proposed  interface  to  enhance  data  manipulation 
tasks,  the  short  term  planning  model  for  mission  assignment  is 
able  to  produce  daily  to  weekly  sortie  plans  in  minutes  and 
free  of  user  error. 

Using  integer  linear  programming  as  a  foundation  for  a 
computer  based  maintenance  scheduling  and  mission  assignment 
system  can  substantially  reduce  the  workload  and  improve  the 
quality  of  this  complex  planning  process. 
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APPENDIX  A  IMPLEMENTATION  07  YEARLY  PLANNING  SYSTEM 


A.  LP- ROUNDING  METHOD 


STITLE  Helicopter  Maintenance  Scheduling 
SSTITLE  A.Sgaslik  Thesis 

*  Computes  a  yearly  schedule  for  45  helicopters  with  respect 

*  to  flight  hour  distribution,  D  inspections  and  events. 

*  The  following  program  characteristics  influence  solutions  drastically 

*  and  need  special  attention: 

*  •  The  relative  termination  tolerance  OPTCR,  which  means  that  GAMS 

*  will  stop  and  report  on  the  first  solution  found  whose  objective 

*  value  is  within  the  specified  tolerance  of  the  beat  possible  solution, 

*  •  The  scalar  DEVWEIGHT,  which  sets  a  penalty  for  no  equitable  use  of  the 

*  helicopter  fleet, 

*  •  The  scalar  EXPLWEIGHT,  which  sets  a  penalty  for  planning  above  the 

*  monthly  flight  hour  guideline  for  each  helicopter, 

*  •  The  restriction  sec  of  possible  helicopters  for  event  decisions  R(T), 

*  •  The  upper  limits  for  flight  hours  for  each  helicopter  and  month  X.UP 

*  and  XE.UP, 

*  •  The  allowed  percentage  ranges  for  violating  constraints  (no  penalty 

*  violations) . 

*  . -CONTROL  OPTIONS- . 

SOFFUPPER  OFFSYMLIST  OFFSYMXREF 

OPTIONS 

LIMCOL  -  0,  LIMROH  -  0,  SOLPRINT  -  OFF  .DECIMALS  -  2 
RESLIM  .  500000,  ITERLIM  -  150000,  OPTCR  -  0.15,  SEED  -  3141 
OPTION  LP  -  XA  ,  RMIP  -  XA  .  MIP  -  XA  ; 

*  . DEFINITIONS  AND  DATA . 

SETS 

T  month  /  0*12  / 

H  helicopter  identification  /  1*45  / 

E  event  /  1*4  / 

I  iterations  for  rounding  method  /  1  / 

ALIAS  (T,TP) ; 

PARAMETERS 

WEIGHT1 (T)  penalty  for  deviations 

WEIGHT2 (T)  penalty  for  deviations 

TOLERA(T)  tolerance  for  no  penalty  deviation  of  desired  flight  hour  reserve 

U(T)  months  without  events 
/I  1 

2  1 

3  0 

4  1 

5  0 

6  1 

7  1 

8  1 

9  0 

10  1 

11  1 

12  0  / 


PLHRS(T)  planned  flight  hours  for  month 
/I  526 

2  526 

3  1278 

4  602 
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5 

1126 

6 

827 

7 

526 

8 

602 

9 

1053 

10 

677 

11 

537 

12 

743  / 

INHRSiH)  initial  remaining  flight  hours  for  each  helicopter 

/45  0 

44  0 

43  0 

43  2 

41  S 

40  7 

1  10 

2  12 

3  13 

4  IS 

5  20 

6  35 

7  45 

8  60 

9  75 

10  80 

11  90 

12  95 

13  110 

14  135 

15  145 

16  150 

17  155 

18  165 

19  175 

20  185 

39  195 

38  200 

37  205 

36  210 

35  220 

34  225 

33  230 

32  235 

31  240 

30  242 

29  250 

28  260 

27  270 

26  272 

25  278 

24  290 

23  300 

22  300 

21  300  / 


DINSP(H)  initial 
*  code  description 
/I 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


repair  level  inspection  status  for  each  helicopter 
1-D1  2-D2  3-Dla  4-D3 

1 
2 

3 

4 
1 
2 

3 

4 
1 
2 

3 

4 
1 
2 

3 

4 
1 
2 

3 

4 
1 
2 

3 

4 
1 
2 
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27  3 

28  4 

29  1 

30  2 

31  3 

32  4 

33  1 

34  2 

35  3 

36  4 

37  1 

38  2 

39  3 

40  4 

41  1 

42  2 

43  3 

44  4 

45  1  / 


EVENTHRS  ( E )  event  recruirements  in  hours  for  each  helicopter 
/I  100 

2  75 

3  62 

4  65  / 

EVEITTNMB(E)  event  requirements  in  helicopter  numbers 
/I  10 

2  8 

3  10 

4  5  / 


INSPOK(H.T)  one  if  helicopter  -  maintenance  assignment  possible 
EVENTOK(H.E,T>  one  if  helicopter  -  event  -  time  assignment  possible; 


TABLE 

S(T,£)  one  when  event  in  month 
12  3  4 

1 

2 

3  1 

4 

5  1 

6 

7 

8 

9  1 

10 
11 

12  1  ; 


TABLE 

R(H,E)  one  when  helicopter  event  assignment  initial  possible 

12  3  4 

111  1 

2  111 

3  1111 

4  1111 

5  11 

6  1111 

7  1111 

8  111 

9  1  11 

10  1111 

11  1111 

12  111 

13  1  1  1 

14  11 

15  1111 

16  111 

17 

18  1111 

19  1  1  1 

20  111 

21  1111 

22  1  11 

23  1111 

24  111 
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25  1111 

26  111 

27  1  1  I 

29  111.! 

30  1  1  1 

31  1111 

32 

33  1111 

34  1111 

35  111 

36  111 

37  111 

38  1111 

39  111 

40  111 

41  1111 

42  1111 

43  1  1  1 

44  111 

45 


SCALARS 

MDAYS  average  maintenance  days  for  one  inspection 

/  15  / 

DMAXDAYS  maximal  repair  level  capacity  in  days  per  month 
/  60  / 

PRODHRS  hour  production  per  inspection 
/  300  / 

OPTSUP  desired  level  of  flight  hour  reserve 
DEVWEIGHT  penalty  for  not  equitable  fleet  usage  /  0.01  / 
EXPLWEIGHT  penalty  for  planning  above  30  hours  limit  /  0.1  /; 


*  parameter  calculations 

OPTSUP  -  CARD (H)  *  ISO; 

LOOP (T ,  WEIGHT1 (T)  -  0.5); 

LOOPIT,  WEIGHT2 (T)  -  1) ; 

*  Flexible  tolerance  for  deviation  from  desired  flight  hour  reserve 
LOOPIT.  IF  (PLHRS(T)  GT  (4  *  PRODHRS),  TOLERAIT)  -  3  ); 

IF  (  (PLHRSIT)  GE  (2.5  *  PRODHRS))  AND 

(PLHRS(T)  LE  (4  *  PRODHRS))  , TOLERAIT)  -  2  ); 

IF  I  PLHRSIT)  LT  (2.5  *  PRODHRS) .TOLERAIT)  -  1  );  ); 

INSPOKIH.T)  -  1  SI  I ( (ORDIT) -1)  *  100)  GT  INHRS (H) )  AND 
(ORD(T)  GT  1))  ; 

EVENTOK (H, E, T)  -  1  S  I  (SIT.E)  AND  (RIH.E))  AND 

I  SUM  (TP  $  HORDITP))  LE  (ORDIT))),  INSPOK  (H,  TP) )  GT  0  )) 

OR  I  SIT.E)  AND  (RIH.E1)  AND 

I  SUM  (TP  S  HORDITP))  LE  (ORDIT))),  INSPOK  (H,  TP!  )  EQ  0  )  AND 
(INTERS  (H)  -  EVENTHRS  IE)  -  ((((ORDIT))  -  1)  *  100)  GT  0)  )  )  ); 

*  . MODEL . - - - - 

POSITIVE  VARIABLES 

X(H,T)  assigned  flight  hours  to  helicopter  in  month 

XE(H.T)  assigned  flight  hours  above  30  hour  limit 

REMHRS (H,T)  flight  hours  until  next  inspection 
for  helicopter  at  end  of  month; 

REMHRS. UP(H,T)  -  300; 


*  Initialization  of  remaining  hours  until  next  inspection 
LOOPIH, 

REMHRS .  FX  (H,  '  0 '  )  -  INHRS  (H)  )  ; 

*  Upper  limits  for  assigned  flight  hours  in  month 
X.UP(H.T)  -  30; 

XE.UP(H.T)  -  30; 


BINARY  VARIABLES 

Z(H,E)  one  if  helicopter  is  assigned  to  event  e 
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Y(H,T)  one  if  helicopter  is  assigned  maintenance  at  month  t; 


*  Fixing  preplanned  inspections  in  month  1 
LOOP  (H,  IF  (INHRS'H)  EQ  0,  Y.FX1H, '1')  -  1  ; 

X.FX1H, '!• )  -  0  ) ;  ) ; 


POSITIVE  VARIABLES 

DEVOPTSP1 (T)  small  penalty  deviation  from  desired  flight  hour  reserve 

DEVOPTSP2 (T!  deviation  from  desired  flight  hour  reserve 

DEVNOPEN1 (T)  allowed  deviation  from  desired  flight  hour  reserve 

ELAST1 (T)  elastic  variable  for  equation  plan 

ELAST2 (T)  elastic  variable  for  equation  plan 

ELAST3 (T)  elastic  variable  for  equation  maxd 

DEVFLEET1 (H)  elastic  variable  for  equitable  fleet  usage 

DEVFLEET2 (H)  elastic  variable  for  equitable  fleet  usage 

PLNOPEN (T)  allowed  surplus  planning  hours  in  month 

PLSMPEN (T)  small  penalty  elastic  variable  for  equation  plan 

FLNOPENl(H)  allowed  deviation  from  equitable  fleet  usage 

FLNOPEN2(HI  allowed  deviation  from  equitable  fleet  usage 


*  Fixing  no  and  small  penalty  limits 


DEVOPTSP1 . UP  IT) 
DEVNOPENl.UP(T) 
FLNOPEN1 . UP (H) 
FLNOPEN2  .  UP  ( H ) 
PLNOPEN .  UP  ( T ) 
PLSMPEN.  UP  (T) 


0.25  *  OPTSUP; 

0.10  *  OPTSUP; 

0.35  *  (SUM (T  S  (ORD(T) 
0.35  *  (SUM (T  $  (ORDITI 
0.05  *  PLHRS(T); 

0.10  *  PLHRS(T) ; 


GT  li, 
GT  1)  , 


PLHRS  (T)  !  /  CARD  (H)  )  ; 
PLHRS(T)  )  /  CARD  (HI  )  ; 


VARIABLE 

COST  objective  function  ; 


EQUATIONS 

OBJ 

PLAN  (T) 

MAXD  (T) 
SMOD(T) 

DEVI  (T) 

FLT1(H,T) 

FLSM(H) 

NUME  (E,  T) 

INS1(T,E,H) 

INS2(T,H) 


objective  function 

constraint  on  monthly  planned  hours 

repair  level  capacity  constraint 

lower  limit  for  inspections  at  month 

deviation  from  desired  flight  hour  reserve  constraint 

computation  of  remaining  flight  hours 

equitable  fleet  usage 

exact  number  of  helicopters  for  each  event 
no  maintenance  or  assigned  flight  hours  when  event 
no  assigned  hours  when  maintenance 


*  minimize 

OBJ..  COST  -E-  100  ♦  SUM (T  $  (ORD(T)  GT  1), 

(  WEIGHT1 (T)  *  (PLSMPEN (T)  +  DEV0PTSP1 (T) )  )  ♦ 

(  WBIGHT2  (T)  *  (  DEV0PTSP2  (T)  ♦  ELAST1  (T) 

♦  ELAST2  (T)  ♦  ELAST3  (T) )  )  ) 

♦  DEVWEIGHT  *  SUM(H,DEVFLEET1  (H)  +  DEVFLEET2  (H)  ) 

♦  EXPLWEIGHT  *  SUM(  (T, H)  S  (ORD (T!  GT  1) ,  XE (H,Tj  )  ; 


*  subject  to 

PLAN (T)  $  (ORD(T)  GT  1) . . 

SUM (H  ,  X (H, T)  i  XE(H,T)  ♦ 

SUM (E  $  (S (T, E) ) , EVENTHRS !E)  *  Z(H,E)  S  (EVENTOK (H, E, T) ) ) )  -E- 
PLHRS(T)  -  ELAST2  IT)  *  ELAST1  (T)  ♦  PLNOPEN  (T)  ♦  PLSMPEN  (T); 
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MAXDIT)  $  (ORD(T)  GT  1)  .  .  SUMIH  ,  MDAYS  *  Y(H.T)  $  INSPOK(H.T)) 

-L-  DMAXDAYS  -  ELAST3 (T)  ; 

SMODIT)  $  (ORDIT)  GT  1)  .  .  SUM  (H,  Y  (H,T)  S  INSPOKIH.T))  -G-  2; 

DEVI (T!  S  (ORDIT)  GT  1) . . 

SUMIH,  REMHRS IH, T) I  -G-  OPTSUP  -  DBVOPTSP1 IT)  -  DEVOPTSP2 IT)  - 
TOLERA(T)  *  DEVNOPEN1  IT)  ; 

FLTKH.T)  S  (ORD  (T)  GT  1)  .  . 

REMHRS (H, T)  -E-  REMHRS IH,T-1)  -  XIH.TI  -  XSIH.T)  - 

SUMIE  S  (SIT, EM  ,  EVENTHRS  IE)  *  (ZIH.EI  S  (EVENTOK  (H,  E,  T)  )  ) )  ♦ 

PRODHRS  *  I Y (H, T)  S  INSPOKIH.T))  ; 

FLSMIH) . .  SUMIT  S  (ORDITI  GT  1).  XIH.T)  *  XE(H,T)  ♦ 

SUM!  E  , EVENTHRS IE)  *  (ZIH.E)  $  (EVENTOK (H, E, T) ))) )  -E- 
(SUMI  T  S  (ORDIT)  GT  1),  PLHRSIT))  /  CARD (HI  )  ♦ 

DEVFLEET1  (H)  -  DEVFLEET2  (Hi  ♦  FLNOPEN1  (HI  -  FLNOPBN2 IH)  ; 

NUME(E.T)  S  (S(T.E)  )  .  . 

SUMIH,  Z(H,E)  S  (EVENTOK  (H.E.T)  I  )  -E«  EVENTNMB  (E)  ; 

INS1 (T, E, H)  S  (SIT, El). .  Z(H,EI  S  (EVENTOK IH, E, T>)  ♦  X(H,T)  /  30  «• 

(Y (H,T)  $  INSPOKIH.T) )  -L-  1; 

INS2IT.H)  S  (U (T) ) . .  X (H, T)  /  30  ♦  (Y(H,T)  S  INSPOKIH.T!)  -L-  1; 


MODEL  HELICOPTER  /ALL/ ; 

SOLVE  HELICOPTER  USING  RMIP  MINIMIZING  COST; 


*  iterative  solving 

LOOP ( I , 

LOOP IH, 

LOOP  IE,  IF  (Z.LIH.E)  GT  0 . 9S  ,  Z.FXIH.E)  -  1  ); 

IF  (Z.LIH.E)  LT  0.05  ,  Z.FXIH.E)  -  0  ); 

LOOPIT  S  S(T,E),  IF  (Z.LIH.E)  EQ  1  ,  Y.FXIH.T)  -  0  ; 

X.FX(H.T)  -  0  )  ;  )  ;  )  ; 

LOOPIT,  IF  (Y.L(H.T)  LT  0.05  ,  Y.FXIH.T)  •  0  ); 

LOOP (E  S  S(T.E).  IF  (Y.L(H.T)  EQ  1  ,  Z.FXIH.E)  -  0  ; 

X.FXIH.T!  -  0  )  ;  )  ;  )  ;  ) 

SOLVE  HELICOPTER  USING  RMIP  MINIMIZING  COST;  )  ; 


SOLVE  HELICOPTER  USING  MIP  MINIMIZING  COST; 


* . REPORTS . 

PARAMETERS  REPORT1 (♦ ,T)  planned  hours  £or  each  helo  and  month; 
REPORTI  (H,T)  -  X.LIH.T)  t  XE.LIH.T)  +  SIWIE  S  S(T,E), 

EVENTHRS IE)  *  Z.LIH.E))  ; 

REPORTI  I 'TOTAL', T)  -  SUM  (H,  X.LIH.T)  ♦  XE.LIH.T)  ♦ 

SUMIE  $  SIT.E),  EVENTHRS IE)  *  Z.LIH.E))); 
REPORTI  ('PLAN  ' ,T)  -  PLHRSIT); 

PARAMETERS  REPORT2 I  * , T)  maintenance  decision  for  helo  and  month  ; 
REPORT2  (H.T)  $  I  ORDIT)  GT  1  )  -  Y.LIH.T) ; 

REPORT2  ('TOTAL', T)  $  (  ORDIT)  GT  1  )  -  SUM!  H,  Y.LIH.T)); 

PARAMETERS  REPORT3(*,E)  event  decision  for  helo  and  event; 

REPORT3  (H.E)  -  Z.LIH.E); 

REPORT3  ('TOTAL', E)  -SUMIH,  Z.LIH.E)); 

PARAMETERS  RE PORT 4  IT)  summed  maintenance  day  for  each  month; 

REPORT4  IT)  $  (ORDIT)  GT  1)  -  SUM!  H,  MDAYS  ♦  Y.LIH.T)); 

PARAMETERS  REPORTS  I*. T)  flight  hour  reserve  for  each  helo  and  month; 
REPORTS  (H.T)  -  REMHRS . L (H.T) ; 

RE PORT 5  I 'TOTAL', T)  -  SUM  (H,  REMHRS . L (H, T) ) ; 

REPORTS  I'OPTIM'.T)  -  6750; 

PARAMETERS  REPORT6 IT)  percentage  of  ready  to  fly  helicopters; 

RBPORT6  IT)  $  (ORDIT)  GT  1)  -  100  - 

(100  *  SUM  (H  $  I (REMHRS. L (H.T)  EQ  0)  OR 
(Y.LIH.T)  EQ  1)),1)  /  CARD  I H) ) ; 


OPTION  REPORTI :2:1:1; 
DISPLAY  REPORTI; 


OPTION  REPORTS : 2 : 1 : 1 ; 
DISPLAY  REPORTS ; 


OPTION  REPORT3 : 2 : 1 : 1 ; 
DISPLAY  REPORTS ; 

DISPLAY  REPORT*; 


OPTION  REPORT5 : 2 : 1 : 1 ; 

DISPLAY  REPORTS; 

DISPLAY  REPORT6 ; 

DISPLAY  PLSMPEN.  L,  ELASTI . L,  ELAST2  .  L; 
DISPLAY  ELAST3.L; 

DISPLAY  DEVOPTSPI . L, DEVOPTSP2 . L; 
DISPLAY  DEVFLEET1 . L , DEVFLEET2 . L ; 
DISPLAY  XE.L; 


*  Creating  input  for  Pascal  transformation  program  Mosch 
FILE  RES  /INPUTFIL.PAS/  ; 

PUT  RES; 

PUT  "INPUTFILE  MODEL  HELICOPTER"  ; 

PUT  / ; 

PUT  /  ; 

LOOP  (H. 

LOOP  (T  $ (ORD IT)  GT  II,  PUT  REPORT1 (H, T) : 5 :0  ); 
PUT  /  ) ; 

PUT  /; 

LOOP  (H. 

LOOP  (T  $ (ORD (T)  GT1),  PUT  Y . L (H, T) : 3 : 0  >; 

PUT  /  ) ; 

PUT  /; 

PUT  CARDIE)  :  2  :  0  /; 

LOOP  (H, 

LOOP  IE,  PUT  Z.L(H.E) :3 :0  ); 

PUT  /  ) ; 

PUT  /; 

LOOP  (H.  PUT  DINSP(H) :3:0  ; 

PUT  /  ) ; 

PUT  / ; 

PUT  / ; 

LOOP  (H. 

LOOP  IT,  PUT  REMHRS . L (H,T) :4:0  ); 

PUT  /  ) ; 

PUT  /; 


B .  CASCADE  METHOD 


Remark:  Only  parts  different  to  A.  are  listed. 


CCTC 

T  month  /  0*12  / 

H  helicopter  identification  /  1*45  / 
E  event  /  1*4  / 

I  iterations  /  1*12  / 


VARIABLE 

COST  objective  function  ; 


EQUATIONS 

OBJ  objective  function 

PLANA  IT)  constraint  on  monthly  planned  hours 

PLANB (T)  constraint  on  monthly  planned  hours 

MAXDA(T)  repair  level  capacity 

MAXDBIT)  repair  level  capacity 

SMODAIT)  lower  limit  for  inspections  at  month 
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SMODBIT) 

lower  limit  Cor  inspection*  at  month 

DEVI  IT) 

deviation  of  desired  flight  hour  reserve  constraint 

FLT1AIH.T) 

FLT1BIH.T) 

computation  of  remaining  flight  hours 
computation  of  remaining  flight  hours 

FLSMIH) 

equitable  fleet  usage 

NUMEAIE.T) 

NUMEBIE.T) 

exact  number  of  helicopters  for  each  event 
exact  number  of  helicopters  for  each  event 

INSIAIT.E.H) 
INS  IB  IT,  E,  HI 

no  maintenance  and  planned  hours  when 
no  maintenance  and  planned  hours  when 

event 

event 

INS2AIT,  HI 
INS2B  IT,  HI 

no  planned  hours  when  maintenance 
no  planned  hours  when  maintenance  ; 

*  minimize 

OBJ.  .  COST  -E- 

100  ♦  SUMIT  S  (ORDITI  GT  1), 

(  WEIGHT1  (T)  *  ( PLSMPEN  (T)  .  DEV0PTSP1  IT)  !  )  ♦ 

(  WEIGHT2 (T)  *  1  DEVOPTSP2 (T)  »  ELAST1 (T) 

♦  ELAST2  IT)  ♦  E  LAST  3  (Til  I  ) 

♦  DEVHEIGHT  *  SUM (H, DEVFLEET1  (H)  ♦  DEVFLEET2  (H)  ) 

♦  EXPLWEIGHT  •  SUM!  !T.H)  S  (ORD(T)  GT  II,  XE(H,T>  )  ; 


*  subject  to 

PLANAIT)  S  ((ORD(T)  GT  1)  AND  !ORD(T)  LE  A)).. 

SUM (H  ,  X(H,T)  ♦  XE(H.T)  ♦ 

SUMtE  S  (S (T, E) ) , EVENTHRS IE)  *  Z'H.E)  $  (EVENTOK (H, E, T) ) ) )  -E- 
PLHRSIT)  -  ELAST2IT)  ♦  ELAST1 (T)  ♦  PLNOPEN (T)  ♦  PLSMPEN (T) ; 

PLANB(T)  S  (ORDITI  GT  A)  .  . 

SUMIH  .  XIH.TI  ♦  XE(H,T)  * 

SUMIE  S  (S (T, E) ) , EVENTHRS (El  *  ZC(H,E)  S  (EVENTOK (H, E, T) M )  -E- 
PLHRS(T)  -  ELAST2 (T)  ♦  ELAST1 (T)  ♦  PLNOPEN (T)  ♦  PLSMPEN (T) ; 

MAXDA(T)  $  ( (ORD (T)  GT  II  AND  (ORDITI  LE  A) I . . 

SUMIH  , MDAYS  *  Y(H,T)  $  INSPOKIH.TI) 

-L-  DMAXDAYS  »  ELAST3  IT)  ; 

MAXDBIT)  $  (ORDITI  GT  A)  .  . 

SUMIH  .MDAYS  *  YCIH.T)  S  INSPOKIH.TII 
-L-  DMAXDAYS  *  BLAST 3  IT!  ; 

SMODA(T)  $  ((ORDITI  GT  1)  WTO  (ORDITI  LB  A)  I  .  . 

SUM  (H,  YIH.T)  S  INSPOKIH.TI)  -G-  2; 

SMODB(T)  $  (ORDITI  GT  A)  .  . 

SUM  (H,  YCIH.T)  S  INSPOKIH.TI)  -G-  2; 

DEV1IT)  $  (ORDITI  GT  1)  .  . 

SUMIH,  REMHRSIH.TI)  -G-  OPTSUP  -  DEVOFTSP1  IT)  -  DEVOPTSP2  IT)  - 
TOLERA(T)  *  DEVNOPEN1  IT)  ; 

FLT1AIH.T)  S  I  (ORDITI  GT  1)  AND  (ORDITI  LE  A)  I  .  . 

REMHRSIH.TI  -E-  REMHRS  (H.  T- 1 1  - 
XIH.TI  -  XEIH.T)  - 

SUMIE  S  (SIT. El)  .  EVENTHRS  IE)  *  (ZIH.E)  S  (EVENTOK  (H,  E,  T)  1 1  I  ♦ 
PRODHRS  *  (YIH.T)  S  INSPOKIH.TI  I  ; 

FLT1BIH.T)  $  (ORDITI  GT  A) . . 

REMHRSIH.TI  -E-  REMHRS  (H.T-1)  - 
XIH.TI  -  XEIH.T)  - 

SUMIE  S  (SIT, El)  ,  EVENTHRS  IE)  *  (ZCIH.E)  $  (EVENTOK  (H,  E,  T)  I  I  I  ♦ 
PRODHRS  *  (YCIH.T)  $  INSPOKIH.TI)  ; 

FLSMIH)  .  .  SUMIT  S  ((ORDITI  GT  1)  AND  (ORDITI  LE  A)  I  ,  XIH.TI  XEIH.T)  ♦ 
SUM l  E  .EVENTHRSIE)  »  (Z(H.E)  $  (EVENTOK (H.E.T) III)  + 

SUMIT  S  (ORDITI  GT  A),  X(H.T)  ♦  XE(H.T)  ♦ 

SUM!  E  .EVENTHRSIE)  *  (ZCIH.E)  S  I EVENTOK I H.E.T) I  1 1 1  -E- 
(SUMI  T  S  (ORDITI  GT  1),  PLHRS IT) I  /  CARD (HI  I  ♦  DEVFLEET1 (HI 
-  DEVFLEET2 (HI  +  FLNOPEN1 (HI  -  FLNOPEN2 (HI  ; 

NUMEAIE.T)  $  IS  IT,  El  AND  (ORDITI  LEA)).. 

SUMIH.  ZIH.E)  S  (EVENTOK  (H,  E.T)  I  I  -E-  EVENTNMB  IE)  ; 

NUMEBIE.T)  S  (S(T.E)  AND  (ORDITI  GT  A)  I  .  . 

SUMIH,  ZCIH.E)  S  (EVENTOK (H.E.T) I  I  -E-  EVENTNMB IE)  ; 

INSIA(T.E.H)  S  IS  IT, E)  AND  (ORDITI  LEA)).. 

ZIH.E)  $  (EVENTOK (H.E.T) I  ♦  XIH.TI  /  30  ♦  (YIH.T)  $  INSPOKIH.TI)  -L 
INS1B  IT,  E,  HI  $  IS  IT,  E)  AND  (ORDITI  GT  A)  I  .  . 

ZCIH.E)  5  (EVENTOK (H.E.T)  I  ♦  XIH.TI  /  30  ♦  (YCIH.T)  $  INSPOKIH.T)) 

INS2AIT.H)  $  (UIT)  AND  (ORDITI  LE  A)).. 


1; 

-L-  1; 
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X(H,T)  /  30  ♦  IYIH.T)  $  INSPOKIH.T) )  -L-  1; 

INS2BIT.H)  $  IUIT)  AND  (ORDIT)  OTA)).. 

X!H,T>  /  30  *  IYC1H.T)  S  INSPOKIH.T))  lj 

MODEL  HELICOPTER  /ALL/; 

*  iterative  solving 

LOOP  II,  A  -  ORD(I)  *  1  ; 

SOLVE  HELICOPTER  USING  MIP  MINIMIZING  COST  ; 

LOOP  (H 

LOOP  IT  S  (ORDIT)  LE  A),  X.FXIH.T)  -  X.LIH.T)  ; 

XE.FXIH.T)  »  XE.LIH.T) ; 
Y.FXIH.T)  -  Y.LIH.T)  ; 

REMHRS  .  FX  (H,  T)  -  REMHRS  .  L IH.  T) 
LOOP  IE  $  SIT.E),  Z.FXIH.E)  •  Z.LIH.E)  );  );  );  ) 
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APPENDIX  B  TABULATED  SOLUTIONS  OP 


YEARLY  SCHEDULE 


THE 


Computer: 

IBM  comp. 

486/33 

Sol . procedure : 

LP- Rounding 

Solver : 

ZOOM 

OPTCR 

Obj . Val . 

Approximate  time  frame:  | 

0.15 

128.53 

3  hours  | 

Month 

D-Insp . 

Reserve 

% Avail . 

. .  11 

E  XE 

1 

3 

6853 

86.7 

20 

2 

2 

6901 

82.2 

30 

3 

2 

6159 

82.2 

0 

4 

3 

6427 

80.0 

0 

5 

4 

6499 

80.0 

0 

6 

2 

6272 

77.8 

28 

7 

2 

6346 

77.8 

30 

8 

4 

6944 

82.2 

30 

9 

3 

6783 

82.2 

30 

10 

3 

7006 

84.4 

30 

11 

3 

7366 

88.9 

30 

12 

4 

7823 

88.9 

30 

Total  Number  of  D- level  inspections  :  35 
Total  XE  hours  :  258 
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Computer : 

IBM  comp.  486/33  | 

Sol .procedure : 

Solver: 

Cascade 

ZOOM 

OPTCR 

Obj . Val . 

Approximate  time  frame: 

0.15 

111.07 

4  hours 

Month 

D- Insp . 

Reserve 

%Avail . 

E  XE 

1 

3 

6880 

84.4 

0 

2 

2 

6954 

84.4 

0 

3 

4 

6876 

82.2 

0 

4 

4 

7474 

86.7 

0 

5 

2 

6946 

88.9 

0 

6 

4 

7303 

86.7 

30  1 

7 

2 

7377 

91.1 

0  1 

8 

4 

7975 

91.1 

29  I 

9 

2 

7522 

91.1 

35  | 

10 

2 

7445 

93.3 

0 

11 

2 

7508 

93.3 

5 

12 

2 

7328 

95.6 

7  I 

Total  Number  of  D- level  inspections  :  33 
Total  XE  hours  :  106 
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Computer : 


IBM  co:.p.  486/33 


Sol . procedure : 
Solver : 


LP- Rounding 
XA 


OPTCR 


0.1 


Month 


Obj .Val 


115 . 86 


Approximate  time  frame: 


15  minutes 


D-Insp. 

Reserve 

%Avail . 

4 

7180 

73.3 

2 

7254 

77.8 

2 

6576 

82.2 

2 

6574 

75.6 

3 

6346 

75.6 

2 

6119 

77.8 

2 

6193 

77.8 

2 

6191 

80.0 

3 

6083 

71.1 

3 

6227 

66.7 

2 

6290 

66.7 

2 

6147 

64.4 

E  XE 
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Total  Number  of  D- level  inspections  :  29 


Total  XE  hours 


:  132 
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Computer: 


IBM  comp.  486/33 


OPTCR 

Obj . Val . 

0.10 

136.29 

Sol .procedure : 
Solver : 


Month 


D-Insp . 


3 


Cascade 

XA 


Approximate  time  frame: 


20  minutes 


Reserve 

%Avail . 

6853 

86.7 

6901 

84.4 

6739 

86.7 

6757 

86.7 

6229 

84.4 

6002 

77.8 

6075 

77.8 

6073 

80.0 

5567 

80.0 

6075 

77.8 

6438 

75.6 

6295 

80.0 

£  XE 


Total  Number  of  D- level  inspections  :  30 
Total  XE  hours  :  242 
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Computer : 


IBM  comp.  486/33 


Sol . procedure 
Solver: 


OPTCR 


Month 


Obj . Val 


133.35 


D- Insp . 


LP- Rounding 
OSL 


Approximate  time  frame: 


15  minutes 


Reserve 


% Avail . 


E  XE 


Total  Number  of  D- level  inspections  :  29 


Total  XE  hours 


:  317 
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Computer : 

IBM  comp.  486/33 

Sol . procedure : 

Solver : 

Cascade 

OSL 

OPTCR 

Obj . Val . 

Approximate  time  frame: 

0 . 10 

124.40 

20  minutes 

Month 

D- Insp . 

Reserve 

% Avail . 

E  XE 

1 

3 

6880 

80.0 

0 

2 

2 

6954 

84.4 

0 

3 

2 

6219 

84.4 

35 

4 

2 

6217 

86.7 

0 

5 

2 

5632 

88.9 

25 

6 

2 

5405 

80.0 

14 

7 

4 

6079 

82.2 

5 

8 

2 

6075 

82.2 

20 

9 

2 

5622 

84.4 

0 

10 

4 

6137 

80.0 

30 

11 

2 

6200 

84.4 

0 

12 

2 

6057 

86.7 

17 

Total  Number  of  D-level  inspections  :  29 
Total  XE  hours  :  146 
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APPENDIX  C  TRANSFORMATION  PROGRAM  FOR  YEARLY  SCHEDLLE 


A.  PASCAL  CODE 


Compiler:  Borland  Pascal  Version  6.0 


program  Mosch  (input, output) ; 

Ur*) 

uses  Crt; 


{  Author  :  Achim  Sgaslik 

Assignment  :  Thesis  "Planning  German  Army  Helicopter 
Maintenance  and  Mission  Assignment" 

Written  :  10/10/93 
Update 

Objective  :  translate  GAMS  generated  monthly  helicopter 
inspection  and  event  planning  into  a  weekly 
schedule  } 


{ -  constant  and  type  definition  part 

const  MAX  -  45; 

{  number  of  helicopters  ) 


type  Idtype  -  1..MAX; 

{  identification  numbers  for  the  helicopters  } 
type  Dtype  -  1 . . 4 ; 

{  D  inspections  identification  Dl,D2,Dla,D3) 
type  Inspidtype  -  1 . . 16 ; 

{  complete  inspection  cycle,  both  levels  } 

type  Hrstype  *  integer; 

{  flight  hours  } 

type  Monthtype  »  l . . 12 ; 

type  Binartype  -  o .  .  l ,- 

type  In3parraytype  -  array (Idtype)  of  Dtype; 
type  Hrsarraytype  -  array (Idtype)  of  Hrstype ,- 
type  Montharraytype  -  array (Monthtype)  of  integer; 
type  Matrixarraytype  -  array [Idtype, 0 .. 12)  of  Hrstype; 
type  Bimatrixtype  »  array (Idtype, Monthtype)  of  Binartype; 


{  for  initial  input  translation  and  later  use  as  update  structure  } 
type  Structype  -  record 

Idfield  :  Idtype; 

Reminsp  :  Hrstype; 

Nextinsp  :  Inspidtype; 

end; 

type  Inputstructype  -  array (Idtype)  of  Structype; 


{  schedule  subtypes  } 
type  Dschedtype  -  record 

Dfield  :  Dtype; 
Idnr  ;  Idtype; 
Occup  :  boolean; 
end; 


(1990) 
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type  Cschedtype  -  record 

Idnr  Idtype; 

Occup  :  boolean; 
en a; 

type  Eventtype  -  record 
Nr 
Idnr 
Occup 

Inspinevent 
end; 


{  Schedule  main  cypes  } 
type  DScheduletype  -  record 

Dschedarray  :  array(l. .6)  of  Dschedtype; 

WorkD  ;  integer; 

end; 

type  DISchedulestructype  -  array(1..50]  of  DScheduletype ; 


type  CScheduletype  -  record 

Cschedarray  :  array[1..6]  of  Cschedtype; 

WorkC  ;  integer ; 

end; 

type  CISchedulestructype  *  array(l..SQ]  of  CScheduletype; 


type  EvScheduletype  »  record 

Eventarray  :  array (1.. 15]  of  Eventtype; 
end; 

type  EventSchedulestructype  «  array (l . . 50|  of  EvScheduletype; 


{  for  the  Z  event  decision  variable  from  opt.  model} 
type  Inevarraytype  -  array (Idtype, l. .10]  of  Binartype; 


{ - variable  declaration  part  - } 

var  Dinsp  ;  Insparraytype ;  initial  inspection  status  D  -  insp  } 

Retnhrs  ;  Matrixarraytype;  Remhrs  [H, T]  } 

Inithrs  :  Hrsarraytype ;  Inithrs  (H)  } 

Y  ;  Bimatrixtype;  Y  IH,T]  inspection  decision  } 

X  :  Matrixarraytype;  X  (H,T]  *  XE  [H,T]  planned  hours  } 

SumY  ;  Montharraytype ;  Sum  (T,  Y  (H,T)  } 

DSched  :  DISchedulestructype; 

CISched  ;  CISchedulestructype; 

C2Sched  :  CISchedulestructype; 

EvSched  :  EventSchedulestructype; 

Input  -.  Ir.putstructype; 

Z  ;  Inevarraytype;  (  Z  [H,E]  event  decision  } 

Start  :  -2.. 48;  i  Starting  week  for  scheduling  D  -  insp  } 

Abwch  :  integer;  {  Deviation  variable  } 

Inputfile.Eventfile.Outputfile  :  text; 

K,H,T,K0,KM,0,KB.XM,N,L,N0  :  integer; 

Finished, Eventinway, Eventmarker  :  boolean; 


{ -  procedure  and  function  declaration  part  - } 

procedure  Sort  (  var  SInput  :  Inputstructype  ;  SRemhrs  :  Matrixarraytype  ; 
var  SInithrs  ;  Hrsarraytype  ) ; 

{  Sorting  of  inputstructure  in  order  of  remhrs  } 

var  Bufferl.Buf fer2  :  Structype; 

Buffer3,Buffer4  ;  Hrstype; 

J,Q  :  integer; 

Smallest  :  integer; 

begin 

for  J  :■  1  to  (MAX-1)  do  begin 
Smallest  :>  J; 

for  Q  :*  (J  +  1)  to  MAX  do  begin 

if  SInithrs [Q]  <  SInithrs (Smallest]  then  begin 
Smallest  :•  Q; 
end; 


:  integer; 
Idtype ; 
boolean; 
;  integer; 
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end; 


if  Smallest  >  J  then  begin 

'Sufferl  SInput (Smallest] ; 

Buffer2  SInput (J)  ; 

Buffer3  SInithrs (Smallest] ; 

Buffer4  SInithrs [J]; 

SInput (Smallest]  :•  Buffer2; 
SInput [J]  ; m  Bufferl; 

SInithrs [Smallest)  :«  Buffer^; 
SInithrs [J]  Buffer3; 
end; 
end; 

end ;  { Sort } 


procedure  Formtranslate  i  FoRemhrs  :  Matrixarraytype 

var  FInput  :  Inputstructype  ;  FDinsp  :  Insparraytype 
var  FInithrs  ;  Hrsarraytype  I ; 

{  translates  initial  data  and  fills  inputstructure  } 

var  H  :  integer; 

begin 

for  h  :«  l  to  MAX  do  begin 
with  FInput [H]  do  begin 
Idfield  :»  H; 

FInithrs  (H)  •.=  FoRemhrs  (H,  0]  ; 

case  FDinsp (H]  of 

1  :  begin 

if  FoRemhrs [H. 0)  <«75  then  begin 
Reminsp  : «  FoRemhrs (H, 0] ; 

Next  insp  : »  4  ; 
end; 

if  (FoRemhrs [H, 0]  >  75)  and  (FoRemhrs (H. 0]  <-  ISO) 
then  begin 

Reminsp  :»  FoRemhrs [H, 0]  -  75; 

Next insp  :•  3; 
end; 

if  (FoRemhrs (H, 0]  >  150)  and  (FoRemhrs [H, 0)  «»  225) 
then  begin 

Reminsp  :«  FoRemhrs (H, 0]  -  150; 

Next insp  : =  2; 
end; 

if  (FoRemhrs (H, 0]  »  225)  then  begin 
Reminsp  :»  FoRemhrs (H, 0]  -  225; 

Next insp  : ■  1 ; 
end; 
end; 

2  :  begin 

if  (FoRemhrs IH, 0]  <-  75)  then  begin 
Reminsp  :»  FoRemhrs [H, 0] ; 

Next insp  :■  a ; 
end; 

if  (FoRemhrs [H, 0j  >  75)  and  (FoRemhrs (H, 0]  <-  150) 
then  begin 

Reminsp  ; -  FoRemhrs (H, 0]  -  75; 

Next insp  :»  7; 
end; 

if  (FoRemhrs [H,0]  >  150)  and  (FoRemhrs [H, 0]  <-  225) 
then  begin 

Reminsp  FoRemhrs [H, 0]  -  150; 

Next insp  6; 

end; 

if  FoRemhrs [H. 0)  >-  226  then  begin 
Reminsp  :=  FoRemhrs  [H, 0]  -  225; 

Next insp  : »  5 ; 
end; 
end; 

3  :  begin 

if  (FoRemhrs (H, 0]  <■  75)  then  begin 
Reminsp  : =  FoRemhrs [H, 0] ; 

Next  insp  :  =■  12  ; 
end; 

if  (FoRemhrs [H. 0]  >  75)  and  ( FoRemhrs [H , 0 )  <-  150) 
then  begin 

Reminsp  : -  FoRemhrs [H, 0]  -  75; 

Nextinsp  :■  11; 
end; 

if  (FoRemhrs [H, 0]  >  150)  and  (FoRemhrs (H, 0)  <-  225) 
then  begin 

Reminsp  FoRemhrs (H, 0)  -  150; 
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Next  map  10; 

end; 

if  FoRemhra (H, 0!  >•  226  then  begin 
Reminap  ;•  FoRemhra (H, 0)  -  225; 

Next inap  -  9 ; 
end; 
end; 

4  :  begin 

if  (FoRemhra [H, 0)  <-  75)  then  begin 
Reminap  FoRemhra  (H,  0)  ; 

Next inap  : *  16; 
end; 

if  (FoRemhra IH, 0!  >  75)  and  ( FoRemhra IH, 0)  <-  150) 
then  begin 

Reminap  ;•  FoRemhra [H. 0)  -  75; 

Next  map  ;■  IS; 
end; 

if  (FoRemhra  [H.  0)  >  150)  and  (FoRemhra  (H,  0)  225) 

then  begin 

Reminap  :*  FoRemhra IH. 0 1  -  150; 

Next  map  14; 

end; 

if  (FoRemhra IH. 01  >  225)  then  begin 
Reminsp  ;■  FoRemhra [H, 01  -  225; 

Next  map  13; 

end; 
end; 

end; 

end; 

end; 

end;  { Formtranslate } 


function  GetlnspLength  (  GDinspfield  ;  Dtype)  :  integer; 
begin 

caae  GDinspfield  of 

1  :  GetlnspLength  3; 

2  ;  GetlnspLength  :•  4; 

3  :  GetlnspLength  :•  3; 

4  :  GetlnspLength  ;•  5; 

end; 

end;  (GetlnspLength) 


procedure  Initialize  (var  IDSched  ;  DIScheduleatructype  ; 

var  ICISched, IC2Sched  :  CIScheduleatructype  ; 
var  IEvSched  :  EventSchedulestructype) ; 

var  M, II, 12, 13, 14  :  integer; 

begin 

for  M  l  to  50  do  begin 
with  IDSched (Ml  do  begin 
WorkD  : ■  0 ; 

for  II  l  to  6  do  begin 

Dschedarray (Ill .Occup  False; 
end; 
end; 

with  ICISched (M)  do  begin 
WorkC  0; 

for  12  ;•  1  to  6  do  begin 

CSchedarray (121 .Occup  : -  False; 
end; 
end; 

with  IC2Sched(M)  do  begin 
WorkC  :*  0; 

for  13  :»  1  to  6  do  begin 

CSchedarray (13] .Occup  :•  Falae; 
end; 
end; 

with  IEvSched [M]  do  begin 

for  14  :•  1  to  15  do  begin 
Eventarray (14) . Nr  :■  0; 

Eventarray (14) .Occup  False; 

Eventarray (14) . Inspinevent  :•  0; 
end; 
end; 
end; 

end;  (Initialize) 
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procedure  Exfill  (var  EX  :  Matrixarraytype 

var  EEvSched  :  Eventschedulestructype  ; 

var  EY  :  Bimacrixcype  var  ESuraY  :  Montharraytype ,- 

var  EZ  :  Inevarraytype  ,-  var  EDinsp  Insparraytype ; 

var  BRemhrs  :  Matrixarraytype; 

var  EInputf ile, EEventfile  :  text  I  ; 

{  fills  all  variables  with  results  from  optimization  model  from  inputfile  } 

var  H, E,T, I, L, K, Buffer .Nrofevents  :  integer; 

Insp  :  Binartype ,- 

Eventweek, Eventlength  :  integer; 

begin 

readln  (Elnputfilel ; 
readln  (Elnputfilel ; 
for  H  :»  1  to  45  do  begin 
for  T  :■  1  to  12  do  begin 
read  (EInputf ile, EX[H,T1 ) ; 
end; 

readln  (Elnputfilel ; 
end; 

readln  (Elnputfilel ; 

for  H  :»  1  to  MAX  do  begin 
for  T  1  to  12  do  begin 

read  (EInputf ile, EY [H, T] I ; 
end; 

readln  (Elnputfilel ; 
end; 

readln  (Elnputfilel ; 

for  T  :>  1  to  12  do  begin 
Buffer  0; 

for  H  ;  -  1  to  MAX  do  begin 
if  EY[H,T)  .  1  then  begin 
Buffer  :*  Buffer  ♦  1; 
end; 
end; 

ESumY(T)  : -  Buffer; 
end; 

readln  (EInputf ile, Nrofevents) ; 
for  H  :«  1  to  MAX  do  begin 

for  E  1  to  Nrofevents  do  begin 
read  (EInputf ile, EZtH.E) ) ; 
end; 

readln  (Elnputfilel ; 
end; 

readln  (Elnputfilel  ; 
for  H  1  to  MAX  do  begin 

readln  (EInputfile,EDinsp[HJ ) ; 
end; 

readln  (Elnputfilel  ; 
for  H  : »  1  to  MAX  do  begin 
for  T  ;»  0  to  12  do  begin 

read  (EInputf ile, ERemhrs (H,Tl  I ; 
end; 

readln  (Elnputfilel ; 
end; 

for  H  :•  1  to  MAX  do  begin 

for  S  :«  1  to  Nrofevents  do  begin 

if  EZ(H,E]  >  1  then  begin 
for  I  :■  1  to  E  do  begin 
readln  (EEventfile) ; 
end; 

read  (EEventfile, Eventweek) ; 
read  (EEventfile, Eventlength) ; 
reset  (EEventfile) ; 

for  L  :•  o  to  (Eventlength  -1)  do  begin 
K  1; 

while  EEvSched [Eventweek  +  L] . Eventarray [K] .Occup  do  begin 
K  :  ■  K  +  1  ; 
end; 

EEvSched [Eventweek  +  L) . Eventarray [K] . Idnr  H; 

EEvSched [Eventweek  +  L] .Eventarray [K] .Occup  :■  True; 

EEvSched [Eventweek  +  L] . Eventarray [K] .Nr  E; 
end; 
end; 
end; 
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end; 

end;  {Exfill) 


procedure  Pnntstatistic  (var  GOutputfile  :  text  ;  GRemhra  :  Matrixarraytype; 

GY  :  Bimatrixtype  )  ; 

var  8uffer.GT.GH  :  integer; 

begin 

writeln  (GOutputfile)  ; 
vriteln  (GOutputfile) ; 

wnteln  (GOutputfile,  '  Percentage  of  operationally  ready  Helicopters'), 
for  GT  ; »  l  to  12  do  begin 
Buffer  0; 

for  GH  :«  1  to  MAX  do  begin 

if  (GRemhra [GH.GT]  -  0)  or  (GYIGH.GT]  -  1)  then  begin 
Buffer  Buffer  ♦  1. 
end; 
end; 

wnteln  (GOutputfile, 

(100  -  ( (Buffer/MAX)  •  100)1:3:1,'  %  at  Month  '.GT:3); 

end; 

writeln  (GOutputfile) ; 
end;  ( Printstacistic ) 


procedure  Pnnchours  (var  TOutputfile  :  text  ;  TX  :  Matrixarraytype  ; 
TSumY  :  Montharraytype  > ; 


var  GT.GH  :  integer; 
begin 

wnteln  (TOutputfile)  ; 

writeln  iTOutputf ile. ■  Planned  Hours  per  month  and  helicopter' I ; 
write  ITOutputf ile, 1  ' )  ; 

for  GT  :-  1  to  12  do  begin 
write  (TOutputfile. GT:3, '  '); 
end; 

writeln  ITOutputf  ile)  ; 
writeln  (TOutputfile) ; 
for  GH  ;•  1  to  MAX  do  begin 

write  (TOutputfile.GH:3, '  '); 

for  GT  :•  1  to  12  do  begin 

write  (TOutputfile, TXtGH. GT] :3, '  '); 
end; 

writeln  (TOutputfile) ; 
end; 

writeln  ITOutputf ile) ; 
wnteln  ITOutputf  ile)  ; 

writeln  (TOutputfile, '  Number  of  D  -  inspections  per  month  '); 
for  GT  : *  1  to  12  do  begin 

writeln  (TOutputfile. TSumYIGT) :3, ’  inspections  in  month  ',GT); 
end; 

wnteln  ITOutputf  ile)  ; 
wnteln  ITOutputf  ile)  ; 
end;  (  Printhours  ) 


function  ScheduleC  (  SKM  :  integer  )  :  integer; 

(  computes  start  week  for  C  -  inspections  w.r.t  remaining  hours 
to  the  inspections  } 

begin 

if  SKM  <  10  then  begin 
ScheduleC  •. »  0 ; 
end; 

if  SKM  in  [10., 20]  then  begin 
ScheduleC  : •  1 ; 
end; 

if  SKM  in  [21.. 30)  then  begin 
ScheduleC  :■  2; 
end; 

if  SKM  >•  31  then  begin 
ScheduleC  :  -  3 
end; 

end;  (ScheduleC) 
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procedure  Print inputscruc  (PInpuc  :  Inputstructype  ;  var  POutputfile  :  text; 

PRemhrs  :  Matrixarraytype  ) ,■ 


var  H  :  integer; 
begin 

writeXn  (POutputf ile, '  Helicopterdata  ’), 

writeln  (POucpucfile,'  Nr  ID  Remhrs  Nexcinap  mit .  Remhrs' )  ; 

for  H  : m  l  to  MAX  do  begin 
with  PInput [H]  do  begin 

write  (POucpucfile, H:3, '  '); 

write  (POutputf ile, Idfield:3, '  ' > ; 

write  (POutputfile,Reminsp:6, '  '),- 

write  (POutputf  ile, Nextinsp; "7 , '  '); 

writeln  (POutputf ile, PRemhrs [PInput [HI .ldfield,0) :7) ; 
end; 

end; 

writeln  (POucpucfile) ; 
end;  (Print inputstruc) 


procedure  Princschedule  (PEvSched  :  EventSchedulestructype  ; 

PDSched  :  DISchedulescruccype  ; 
PCISched, PC2Sched  :  CISchedulestruccype  ; 
var  POutputfile  :  text  ) ; 


var  M.K  ;  integer; 
begin 

writeln  (POucpucfile); 
writeln  (POutputfile) ; 
writeln  (POutputf ile, ' ************  ■); 
writeln  (POutputfile,'*  Schedule  *  '); 
writeln  (POucputf ile, ’ ************  '); 
writeln  (POutputfile) ; 

writeln  (POutputfile,'  Code  for  Inspections  during  an  event  :  ’); 
writeln  (POutputfile,'  1  -  Cl  prior  to  a  C2'l; 

writeln  (POucpucfile,'  2  -  C2  '); 

writeln  (POutputfile,1  3  -  Cl  after  a  C2  • ) ; 

writeln  (POutputfile,  *  »**»••»*»•»•»•*»*•*••*•»****•*»*»***•**•♦***•’ )  ; 
for  M  1  to  50  do  begin 

writeln  (POutputfile. 'Week  -  ' ,M) ; 

writeln  (POutputfile, 'D-Schedule' ) ; 

K  1; 

while  PDSched [M] , Dschedarray [K] .Occup  do  begin 

write  (POutputf ile, ' ID  »  ' .PDSched CM] .Dschedarray [K] . Idnr: 3, '  ’); 

writeln  (POutputfile, 

•  with  D- Inspection  :  ', PDSched [M] .Dschedarray (K) . Dfield, '  ’); 

K  K  ♦  1; 
end; 

writeln  (POutputfile) ; 

writeln  (POutputfile, 'Cl-Schedule' ) ; 

K  1; 

while  PClSched(M] . Cschedar ray ( KJ  .Occup  do  begin 
writeln  (POutputfile, 

'ID  *  ', PCISched (Ml .Cschedarray [K] . Idnr : 3, '  '); 

K  :«  K  ♦  1; 
end; 

writeln  (POutputfile) ; 

writeln  (POutputfile, 'C2-Schedule' ) ; 

K  1; 

while  PC2Sched[M] . Cschedarray (K] .Occup  do  begin 
writeln  (POutputfile, 

' ID  »  ', PC2Sched[M] .Cschedarray [K] . Idnr ; 3, '  '); 

K  K  ♦  1; 
end; 

writeln  (POutputfile) ; 

writeln  (POutputfile, 'Event-Schedule' ) ; 

K  1; 

while  PEvSched [M] . Eventarray [K] .Occup  do  begin 
write  (POutputfile, 

'Eventnumber  -  ' .PEvSched [Ml .Eventarray [K] .Nr, ’  ' ) ; 

write  (POutputfile, 

' ID  «  ' , PEvSched [Ml . Eventarray [K] . Idnr : 3 , '  ' ) ; 

writeln  (POutputfile, 

'Inspection  -  ', PEvSched [M] .Eventarray (K) . Inspinevent) ; 

K  K  +  1; 
end; 

writeln  (POutputfile) ; 

writeln  (POutputfile, ' *********************************************' ) 
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end; 

end;  ( Pnntachedule ) 


procedure  Bvenccheck  <v«r  VEvSched  ;  Event Sc heduleacructype  ; 

VT  ;  Monthtype  ;  var  VEventmarker  boolean  ; 

Ind  ;  integer  } ; 

{  checks  if  and  which  inspection  is  due  during  event  month  1 

var  KfM.LM  :  integer; 

begin 

VEventmarker  ;*  False; 
for  KW  0  CO  3  do  begin 
LM  1; 

if  VEvSched [  (T- 1)  *4»1-»K>W)  .  Eventarray  [LM]  . Hr  »  0  then  begin 

while  VEvSchedl (VT- 1 )  *4.1.10*1] . Eventarray [LM] .Occup  do  begin 

if  VEvSched  [  IVT- 1 )  *4.1.»*1)  .Eventarray  [IXI  .  Idnr  -  H  then  begin 
VEvSched  [  (VT-l)  *4.1. K>«)  . Eventarray [IXI  .  Inspinevent  :*  Ind; 
VEventmarker  True; 
end; 

LM  LM  ♦  1; 
end; 
end; 
end; 

end ;  ( Eventcheck ) 


procedure  Graphicschedule  (  var  IDSched  :  DIScheduleatructype  ; 

var  ICISched, IC2Sched  :  CISchedulestructype  ; 
var  lEvSched  ;  EventSchedulestructype  ; 
var  IOutputfile  :  text  ) ; 

var  LM.IM.IH  ;  integer; 

Fieldwritten  :  boolean; 

begin 

writeln  (IOutputfile); 

writeln  (IOutputfile.'  Graphical  Schedule  • ) ; 
writeln  (IOutputfile) ; 

writeln  (IOutputfile.’  1  »  D1  2  »  D2  3  »  Die  *  »  D3  '), 

writeln  (IOutputfile.'  *-Cl  S-C2  E«  Event  'll 

writeln  (IOutputfile,'  Week  ■  quarter  of  a  month  on  hcrnontai  axis'); 

writeln  (IOutputfile.'  Helicopter  ID  on  vertical  axis  '); 

writeln  (IOutputfile) ; 

write  (IOutputfile,'  ' ) ; 

for  IM  :*  1  to  16  do  begin 

write  (IOutputfile, IM:2, '  '); 
end; 

writeln  (IOutputfile); 
writeln  (IOutputfile); 
for  IH  :»  1  to  MAX  do  begin 

write  (IOutputfile, IH: 2. '  ' ) ; 
for  IM  1  to  16  do  begin 
Fieldwritten  False; 

LM  :*  1; 

if  IEvSc:.c:d tIM)  .Eventarray  UM]  .Nr  >  0  then  begin 

while  < IEvSched l IM] .Eventarray [LM] .Occup)  do  begin 

if  IEvScheddM]  .Eventarray  [IX]  .  Idnr  -  IH  then  begin 
writd  (IOutputfile.'  E  '); 

Fieldwritten  True; 
end; 

LM  :•  LM  ♦  1; 
end; 
end; 

LM  1; 

while  IDSched [ IM] .Dschedarray [IX] .Occup  do  begin 

if  IDSched [IM] .Dschedarray [IX] . Idnr  -  IH  then  begin 
write  (IOutputfile.'  '); 

write  (IOutputfile, IDSched[IM] .Dschedarray [IX] .Dfield:l, '  ' 
Fieldwritten  : -  True ; 
end; 

IX  IX  »  1; 
end; 

IX  1; 

whils  ICISched [IM] . Cschedarray [LM] .Occup  do  begin 

if  ICISched [IM] .Cschedarray [IX] . Idnr  *  IH  then  begin 
write  (IOutputfile,'  *  '); 

Fieldwritten  True; 
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end; 

IM  IM  ♦  1; 
end; 

IM  X ; 

while  IC2Sched(IMl .Cschedarray  (IM)  Occup  do  begin 

if  IC2Sched [IM1 .Cschedarray (IM) . Idnr  -  IH  then  begin 
write  (lOutputfile, '  $  'I; 

Fieldwritten  True; 
end; 

IM  LM  ♦  1; 
end; 

if  not  Fieldwritten  then  begin 
write  (lOutputfile,'  -  •)  ; 
end; 
end; 

writeln  (lOutputfile) ,- 
end; 

writeln  (lOutputfile) 
writeln  (lOutputfile) 
write  (lOutputfile, '  ■ ) ; 

for  IM  17  to  32  do  begin 

write  (lOutputfile, IM: 2, '  '),- 
end; 

writeln  (lOutputfile); 
for  IH  1  to  MAX  do  begin 

write  (lOutputfile, IH:2, ‘  '); 
for  IM  :*  17  to  32  do  begin 
Fieldwritten  False; 

LM  1; 

if  IEvSched(IM) . Eventarray (LM) .Nr  »  0  then  begin 

while  (IEvSched (IM) . Eventarray [IM! .Occup)  do  begin 

if  IEvSchedtIMI .Eventarray [LM] .Idnr  -  IH  then  begin 
write  (lOutputfile,'  E  '); 

Fieldwritten  :*  True; 
end; 

LM  :«  LM  ♦  1, 

end; 

end; 

LM  1; 

while  IDSched(IM) . Dschedarray (IM) .Occup  do  begin 

if  IDSched(IM) .Dschedarray (LM) . Idnr  -  IH  then  begin 
write  (lOutputfile,'  '); 

write  (lOutputfile. IDSched(IM) .Dschedarray (IM) .Dfield:l, ’ 
Fieldwritten  :■  True; 
end; 

LM  :»  LM  ♦  1; 
end; 

LM  1, 

while  IcischeddM]  . Cschedarray (IM)  .Occup  do  begin 

if  IClSched(IM) .Cschedarray (LM) .Idnr  -  IH  then  begin 
write  (lOutputfile,'  *  '); 

Fieldwritten  True; 
end; 

IM  IM  ♦  1; 
end; 

IM  1; 

while  IC2Sched(XM) .Cscheda  M) .Occup  do  begin 

if  IC2Sched(IM) .Cached.  n  Idnr  -  IH  then  begin 

write  (lOutputfile, 

Fieldwritten  :  -  True 
end; 

LM  LM  +  1; 
end; 

if  not  Fieldwritten  then  begin 
write  (lOutputfile,’  -  ')  ; 
end; 
end; 

writeln  (lOutputfile) ; 
end; 

writeln  (lOutputfile) ; 
writeln  (lOutputfile) ; 
write  (lOutputfile,'  ' )  ,- 
for  IM  33  to  48  do  begin 

write  (lOutputfile, IM:2, '  '); 
end; 

writeln  (lOutputfile)  ,- 
for  IH  :■  1  to  MAX  do  begin 

write  (lOutputfile, IH:2, '  ' )  ; 
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for  im  :•  33  co  48  do  begin 
Fieldwncten  :•  False; 

IX  1; 

if  IBvSchedllM) , Eventarray [LXJ  .Nr  >  0  chan  begin 

while  IIEvSched(IM)  .  Bvencarray  (IX)  .Occup)  do  begin 

if  IBvSched(IM)  Bvencarray  (LM]  .  Idnr  •  IH  Chen  begin 
wnce  UOutpucf  lie. '  E  '); 

Fieldwntten  -  True; 
end; 

LM  IX  •  l; 
end; 
end; 

LM  1; 

while  IDSched(IM) . Dechedarrey (LM1 .Occup  do  begin 

if  IDSched [ IM] . Dechedarrey (IX) . Idnr  -  IH  chen  begin 
wnce  ( IOuCpucf  ile,  '  ■); 

wnce  ( IOuCpucf  ile,  IDSched  [  IM]  .  Dschedarray  [LMJ  .  Df  ield:  1 , ' 
Fieldwnccen  True; 
end; 

LM  :•  LM  ♦  1; 
end; 

LM  1; 

while  lClSched(IM) . Cachederray (IX) .Occup  do  begin 

if  IClSchedllM) .  Cschedarray  (1X1 . Idnr  •  IH  Chen  begin 
wrice  ( IOuCpucf i le. •  *  '); 

Fieldwnccen  :«  True; 
end; 

LX  LM  .  1; 
end; 

LM  1; 

while  IC2Sched(IM) .Cschedarray (LX) .Occup  do  begin 

if  IC2Sched(lM) .Cschedarray (IX) . Idnr  •  IH  Chen  begin 
wrice  ( IOuCpucf ile. '  S  '); 

Fieldwnccen  ;■  True; 
end; 

LM  :•  LM  ♦  1; 

end; 

if  not  Fieldwriccen  then  begin 
write  (IOutputfile, '  -  ; 

end; 
end; 

writeln  (IOutputfile); 
end; 

end;  (Graphicschedule) 


{ - main  program  statement  part  - } 

begin 

assign  (Eventfile, •C:\TP\STUDY\Eventfile.pas' 1 : 
assign  (Inpucfile. 'C:\TP\STUDY\Inputfile.pas' ) ; 
assign  IOutputfile. 'C:\TP\STUDY\Outputfile.pas’ ) ; 

rewrite  IOutputfile) ; 
reset  (Inputfile); 
reset  (Eventfile) ; 


Initialize  IDSched, CISched, C2Sched, EvSched)  ; 

Exfill  I X .  EvSched .  Y ,  SumY ,  Z ,  Dinsp ,  Remhr  s ,  Input  file,  Event  f  i  1  e ) 
Formtranslate  IRemhrs, Input, Dinsp, Inithrs) ; 

Sort  (Input.Remhrs.Inithrs); 

for  K  1  to  MAX  do  begin 
H  Input (K) . Idfield; 
for  T  1  to  12  do  begin 

{  Scheduling  D  -  inspections  } 
if  Y[H,T]  -  1  then  begin 

N  :*  GetlnspLength  (DinspIHl); 
if  T  >  1  then  begin 

{  inicial  starting  point  for  scheduling  D  -  inspection 
second  week  in  month  prior  to  required  completion  ) 
Start  ;*  <T-1)*4  -  1; 

Abwch  : >  0 ; 

for  0  :*  0  to  l  do  begin 

{  check  if  evenc  prohibits  prior  scheduling  } 

L  :■  1 ; 

if  EvSched [Start  ♦  0) . Eventarray [L] .Nr  »  0  then  begin 
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while  EvSched [Scare  ♦  0] . Bventarray [LI  0c cup  do  begin 
if  BvSched (Start  ♦  0] . Bventarray (LJ . Idnr  -  H 
then  begin 

Abwch  : -  Abwch  »  1 ; 
end; 

L  L  *  1; 
end; 
end; 
end; 

{  no  advance  scheduling  if  planned  hours 
in  previous  month  >  30  } 

if  ((Abwch  •  0)  or  (Abwch  •  in  and  (X[H,T-1]  >  30)  then  begin 
Abwch  : •  2 ; 
end; 


end 

{  special  case  first  month  } 
else  begin 

Start  : -  - 1 ; 

Abwch  :  -  2; 

end; 

Finished  :*  False; 

while  not  Finished  do  begin 

f  if  workload  in  week  too  big  or  if  planned  hours  in 
required  completion  month,  search  for  next 
available  spot  ) 

if  (DSchedlAbwch  ♦  Start] .HorkO  >  21  or  (X[H,T)  >  0) 
then  begin 

case  (N  ♦  Abwch)  of 
3,4,5  :  begin 

Abwch  : •  Abwch  ♦  1; 
end; 

e  :  begin 

{  check  if  event  prohibits  inspection  period 
reaching  into  next  month  } 

Eventinway  : -  False; 

L  1; 

if  EvSched [N  ♦  Start  ♦  Abwch], 

Bventarray (L) .Nr  >  0  then  begin 
while  (EvSched [N  *  Start  ♦  Abwch], 
Bventarray (L) .Occup) 
and  (L  <-  5)  do  begin 
if  (EvSched (N  *  Start  ♦  Abwch] . 

Bventarray (LJ . Idnr  •  H)  then  begin 
Eventinway  :*  True; 
end; 

L  L  +  1; 
end; 
end; 

if  not  Eventinway  then  begin 
Abwch  : -  Abwch  *  1; 

end 

else  begin 

Finished  :•  True; 
end; 

end; 

7  :  begin 

Eventinway  :•  False; 

L  1; 

if  EvSched [N  *  Start  *  Abwch] . 

Bventarray [L] .Nr  >  0  then  begin 
while  (EvSched (N  +  Start  *  Abwch] . 
Bventarray [L] .Occup) 
and  (L  <•  5)  do  begin 
if  (EvSched [N  ♦  Start  ♦  Abwch] . 

Bventarray tL] . Idnr  •  H)  then  begin 
Eventinway  : -  True; 
end; 

L  L  ♦  1; 
end; 
end; 

if  not  Eventinway  then  begin 
Abwch  Abwch  ♦  1; 
end; 

Finished  : -  True; 
end; 

end; 
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end 

else  begin 

Finished  :  *  True  ; 
end; 
end; 

{  record  inspection  in  schedule  and  update  workload  } 
for  NO  :»  0  to  (N-l)  do  begin 

KO  :•  1; 

while  (DSched [Start  *  Abwch  ♦  NO] .Dschedarray [K0]  Occup) 
and  (KO  <•  5)  do  begin 
KO  KO  *  1; 

if  KO  >»  5  then  begin 
writeln  (Outputfile. 

Schedule  conflict  D  inspection  for  helicopter  '.H, '  in  month  ',T); 
end; 
end; 

DSched [Start  •  Abwch  *  NO) . Dschedarray [KO] .Occup  :•  True; 
DSchedlStart  *  Abwch  »  NO] .Dschedarray (K0) .Dfield  :»  DinspIH] 
DSchedlStart  ♦  Abwch  *  NO] .Dschedarray [KO] . Idnr  H; 

DSched (Start  *  Abwch  ♦  NO] . WorkD  : ■ 

DSchedlStart  »  Abwch  *  NO] .WorkD  ♦  1; 

end; 

{  update  initial  inspection  variable  for  the  case  of  a 
second  inspection  during  planning  period  } 
if  DinsplH]  »  4  then  begin 
DinspIH]  .-  1 

end 

else  begin 

DinsplH]  :»  (DinspIH]  )  *  1; 
end; 
end; 


{  Scheduling  C1,C2  -  Inspections  using  remaining  hours  m  month 
and  to  next  inspection  ) 

if  (Remhrs [H.T]  <-  75)  and  (Remhrs [H,T-1]  >  75)  then  begin 
Eventcheck  (EvSched. T. Eventmarker , 1) ; 
if  not  Eventmarker  then  begin 
XM  Remhrs (H, T-l]  -  75; 

KM  ScheduleC  (XM) ; 

while  (ClSched[(T-U*4,*l-*RM]  .WorkC  >»  2)  and  (KM  c»  2) 
do  begin 

KM  KM  ♦  1; 
end; 

KB  1; 

while  (CISchedt (T-l) *4+l*KM] .CSchedarray [KB] .Occup) 
and  (KB  <-  5)  do  begin 
KB  KB  ♦  1; 
if  KB  »  5  then  begin 
writeln  (Outputfile, 

Schedule  conflict  Cl  inspection  for  helicopter  ' ,H,'  in  month  * ,T) ; 
end; 
end; 

CISchedt (T-l) *4*1+KM] .CSchedarray [KB] .Occup  True; 
CISchedt (T-l) *4+l*KM] . CSchedarray [KB] .Idnr  H; 

CISchedt (T-l) *4*1*KM] .HorkC 

CISchedt (T-l) *4+l*KM] .WorkC  ♦  1; 

end; 

end; 


if  (RemhrstH.T]  <-  150)  and  (Remhrs [H, T-l]  »  150)  then  begin 
Eventcheck  ( EvSched ,  T .  Eventmarker ,  2 )  ,- 
if  not  Eventmarker  then  begin 
XM  Remhrs (H, T-l)  -  150; 

KM  : -  ScheduleC  (XM) ; 

while  (C2Sched[ (T-l) *4*1*KM] .HorkC  >-  2)  and  (KM  <-  2) 
do  begin 

KM  KM  ♦  1; 
end; 

KB  1; 

while  (C2Sched ( (T-l) *4+l+KM] . CSchedarray [KB] .Occup) 
and  (KB  <-  5)  do  begin 
KB  KB  +  1; 

if  KB  >-  5  then  begin 
writeln  (Outputfile, 

'  Schedule  conflict  C2  inspection  for  helicopter  ',H,'  in  month  ',T); 
end; 
end; 

C2Sched [ (T-l) *4il+KM) . CSchedarray [KB1 . Occup  : -  True; 

C2Sched ( (T- 1) *4+l»KM) . CSchedarray [KB] . Idnr  H; 
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C2Sched [ (T- 1) *4*1+KM) .HorkC 

C2Sched [ (T-l) *4»1«KM) .HorkC  +  1; 

end; 

end; 

if  (Remhrs !H,T]  <»  225)  and  (Remhrs [H, T-l)  >  22S)  then  begin 
Eventcheck  (EvSched.T, Eventmarker, 3)  ; 
if  not  Event marker  then  begin 
XM  Remhrs [H, T-l]  -  225; 

KM  ; -  ScheduleC  (XM) ; 

while  (CISched  [  (T-l)  M+l+KM] .WorkC  >-  2)  and 
(KM  <-  2)  do  begin 
KM  KM  ♦  1; 
end; 

KB  : -  1; 

while  (CISched ( (T-l) *4*1+KM1 . CSchedarray [KB1 .Occup) 
and  (KB  <•  5)  do  begin 
KB  KB  ♦  1; 
if  KB  >•  5  then  begin 
writeln  (Outputfile, 

'  Schedule  connflict  Cl  inspection  for  helicopter  '.H, '  in  month  *,T); 
end; 
end; 

CISchedt (T-l) *4*1+KM) .CSchedarray [KB) .Occup  :*  True; 
CISchedt (T-l) *4*1*KM) . CSchedarray [KB] . Idnr  :-H; 

CISchedt  (T-l)  M+l+KM)  .HorkC 

CISched! (T-l) *4*ltKM] .WorkC  ♦  1; 

end; 

end; 

end; 

end; 

Print input at rue  (Input , Outputfile. Remhrs) ; 

Printschedule  (GvSched.DSched, CISched, C2Sched, Outputfile) ; 
Printstatistic  (Outputfile, Remhrs, Y! ; 

Printhours  (Outputfile. X, SumK)  ,- 

Graphicschedule  (DSched, CISched, C2Sched, EvSched, Outputfile) ; 
close  (Inputfile); 
close  (Outputfile) ; 
close  (Eventfile) ; 
end. 


B.  RESULTING  OUTPUT 


Data  Set  1991,  solved  with  solver  OSL  and  solution 
procedure  Cascade;  listed  partly  only; 

Helicopterdata 

Nr  =  order  of  helicopters  w.r.t.  remaining  hours  to  next  D 
inspection; 

ID  =  helicopter  identification; 

Remhrs  =  remaining  hours  to  next  inspection  (both  levels) ; 
Nextinsp  =  code  numbers  1..16  for  next  inspection; 
init. Remhrs  =  remaining  hours  to  next  D  inspection; 


Nr 

ID 

Remhrs 

Nextinsp 

init . Remhrs 

1 

43 

0 

12 

0 

2 

44 

0 

16 

0 

3 

45 

0 

4 

0 

4 

42 

2 

8 

2 

5 

41 

5 

4 

5 

6 

40 

7 

16 

7 

7 

1 

10 

4 

10 

69 


8 

2 

12 

8 

12 

9 

3 

13 

12 

13 

10 

4 

15 

16 

15 

11 

5 

20 

4 

20 

12 

6 

35 

8 

35 

13 

7 

45 

12 

45 

14 

8 

60 

16 

60 

15 

9 

75 

4 

75 

16 

10 

5 

7 

80 

17 

11 

15 

11 

90 

18 

12 

20 

15 

95 

19 

13 

35 

3 

110 

20 

14 

60 

7 

135 

21 

15 

70 

11 

145 

22 

16 

75 

15 

150 

23 

17 

5 

2 

155 

24 

18 

15 

6 

165 

25 

19 

25 

10 

175 

26 

20 

35 

14 

185 

27 

39 

45 

10 

195 

28 

38 

50 

6 

200 

29 

37 

55 

2 

205 

30 

36 

60 

14 

210 

31 

35 

70 

10 

220 

32 

34 

75 

6 

225 

33 

33 

5 

1 

230 

34 

32 

10 

13 

235 

35 

31 

15 

9 

240 

36 

30 

17 

5 

242 

37 

29 

25 

1 

250 

38 

28 

35 

13 

260 

39 

27 

45 

9 

270 

40 

26 

47 

5 

272 

41 

25 

53 

1 

278 

42 

24 

65 

13 

290 

43 

23 

75 

9 

300 

44 

22 

75 

5 

300 

45 

21 

75 

1 

300 

*  Schedule  *  Remark:  week  5  and  weeks  10  -  48  omitted 
*★★★*★*****★ 


Code  for  Inspections  during  an  event  : 

1  =  Cl  prior  to  a  C2 

2  =  C2 

3  =  Cl  after  a  C2 

ft******************************************** 
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Week  =  l 
D- Schedule 

ID  =  43  with  D-lnspection  :  3 

ID  =  44  with  D- Inspection  :  4 

ID  =  45  with  D- Inspection  :  1 

Cl -Schedule 
ID  =  33 

C2- Schedule 

Event - Schedule 

********************************************* 


Week  =  2 

D-Schedule 


ID  =  43 

with 

D- Inspect ion  :  3 

ID  =  44 

with 

D- Inspection  :  4 

ID  =  45 

with 

D- Inspection  :  1 

Cl -Schedule 

ID  =  11 

ID  =  12 

C2- Schedule 
Event -Schedule 

********************************************* 
Week  =  3 

D- Schedule 

ID  =  43  with  D- Inspection  :  3 

ID  =  44  with  D- Inspection  :  4 

ID  =  45  with  D- Inspection  :  1 

Cl -Schedule 
ID  =  31 

ID  =  29 

C2- Schedule 
ID  =  19 

Event -Schedule 

********************************************* 


Week  =  4 

D-Schedule 


ID  = 

44 

with 

D- Inspection  : 

4 

ID  = 

40 

with 

D- Inspection  : 

4 

ID  = 

5 

with 

D- Inspection  : 

1 
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Cl -Schedule 


C2 -Schedule 
Event -Schedule 


********************************************* 

Week  =  10 

D-Schedule 

ID  =  8  with  D- Inspection  :  4 


Cl -Schedule 
ID  =  32 

ID  =  21 

C2 -Schedule 
ID  =  33 

Event -Schedule 
Eventnumber  =1  ID  = 
Event number  =1  ID  = 
Eventnumber  =1  ID  = 
Eventnumber  =1  ID  = 
Eventnumber  =1  ID  = 
Eventnumber  =1  ID  = 
Eventnumber  =1  ID  = 
Eventnumber  =1  ID  * 
Eventnumber  =1  ID  = 
Eventnumber  =1  ID  = 


20  Inspection  =  1 
22  Inspection  =  3 

24  Inspection  =  3 

25  Inspection  =  2 
27  Inspection  =  3 

30  Inspection  =  3 

31  Inspection  =  2 

34  Inspection  =  2 

35  Inspection  =  2 
43  Inspection  =  3 


Percentage 

of  operationally  ready  Helicopters 

80.0 

% 

at 

Month 

1 

84.4 

% 

at 

Month 

2 

84.4 

% 

at 

Month 

3 

86.7 

% 

at 

Month 

4 

88.9 

% 

at 

Month 

5 

80.0 

% 

at 

Month 

6 

82.2 

% 

at 

Month 

7 

82.2 

% 

at 

Month 

8 

84.4 

% 

at 

Month 

9 

80.0 

% 

at 

Month 

10 

84.4 

% 

at 

Month 

11 

86.7 

% 

at 

Month 

12 
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Planned  Hours  per  month  and  helicopter 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 

0 

10 

0 

0 

0 

0 

0 

30 

30 

0 

0 

30 

2 

12 

0 

0 

0 

0 

30 

30 

30 

62 

30 

0 

0 

3 

0 

0 

0 

0 

0 

13 

0 

0 

0 

30 

30 

30 

4 

15 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

65 

5 

20 

0 

30 

0 

0 

30 

30 

0 

0 

30 

30 

30 

6 

0 

30 

5 

30 

30 

30 

30 

30 

62 

0 

0 

0 

7 

0 

6 

0 

0 

30 

9 

0 

30 

62 

30 

30 

0 

8 

0 

30 

30 

30 

30 

30 

30 

30 

0 

30 

0 

0 

9 

15 

0 

0 

0 

30 

30 

0 

0 

62 

30 

0 

30 

10 

0 

0 

30 

0 

30 

0 

0 

20 

0 

30 

30 

0 

11 

30 

0 

30 

30 

0 

0 

0 

0 

0 

0 

30 

30 

12 

30 

30 

0 

0 

30 

5 

0 

30 

62 

0 

30 

30 

13 

0 

30 

0 

30 

0 

0 

0 

0 

30 

20 

0 

65 

14 

0 

0 

0 

30 

30 

30 

0 

30 

0 

15 

30 

30 

15 

30 

30 

0 

30 

30 

25 

0 

0 

0 

30 

0 

0 

16 

0 

0 

30 

30 

75 

15 

0 

0 

30 

0 

0 

65 

17 

0 

30 

0 

30 

30 

30 

0 

0 

0 

30 

5 

0 

18 

0 

30 

30 

30 

30 

30 

0 

0 

0 

15 

27 

0 

19 

30 

30 

30 

30 

0 

0 

0 

0 

0 

0 

0 

11 

20 

30 

30 

100 

0 

25 

0 

0 

0 

30 

0 

0 

30 

21 

30 

30 

30 

0 

0 

0 

30 

0 

62 

0 

0 

0 

22 

0 

0 

100 

0 

0 

30 

30 

30 

0 

0 

0 

0 

23 

30 

30 

0 

0 

0 

30 

30 

30 

62 

30 

0 

0 

24 

0 

0 

100 

30 

19 

30 

0 

0 

0 

0 

30 

30 

25 

30 

30 

100 

0 

0 

30 

0 

0 

0 

0 

0 

65 

26 

0 

0 

30 

30 

75 

30 

30 

0 

30 

30 

0 

17 

27 

0 

0 

100 

0 

30 

0 

30 

0 

30 

0 

30 

0 

28 

0 

0 

0 

30 

0 

30 

30 

0 

30 

30 

0 

30 

29 

30 

30 

0 

0 

30 

30 

30 

0 

62 

30 

0 

0 

30 

0 

0 

100 

0 

30 

0 

0 

0 

0 

30 

30 

0 

31 

30 

30 

100 

30 

30 

0 

0 

20 

30 

0 

0 

0 

32 

0 

0 

30 

0 

30 

30 

0 

30 

0 

30 

30 

30 

33 

30 

30 

30 

30 

75 

30 

5 

30 

0 

0 

0 

0 

34 

30 

30 

100 

0 

0 

0 

0 

30 

30 

5 

0 

0 

35 

0 

0 

100 

30 

0 

30 

30 

30 

0 

0 

0 

0 

36 

0 

0 

0 

2 

30 

0 

30 

0 

62 

30 

30 

0 

37 

30 

0 

0 

30 

30 

30 

0 

0 

30 

30 

25 

0 

38 

30 

30 

0 

0 

75 

30 

0 

5 

30 

0 

0 

0 

39 

30 

0 

0 

30 

75 

30 

11 

19 

0 

0 

0 

30 

40 

7 

0 

0 

30 

75 

30 

0 

30 

0 

30 

0 

65 

41 

5 

0 

0 

0 

0 

30 

30 

30 

62 

0 

30 

0 

42 

2 

0 

0 

0 

75 

’  0 

0 

30 

30 

30 

0 

0 

43 

0 

0 

100 

0 

0 

0 

30 

30 

30 

30 

30 

0 

44 

0 

0 

0 

30 

75 

30 

30 

30 

13 

30 

30 

0 

45 

0 

0 

0 

0 

30 

0 

30 

0 

30 

0 

30 

30 

73 


Number  of  D  -  inspections  per  month 

3  inspections  in  month  1 

2  inspections  in  month  2 

2  inspections  in  month  3 

2  inspections  in  month  4 

2  inspections  in  month  5 

2  inspections  in  month  6 

4  inspections  in  month  7 

2  inspections  in  month  8 

2  inspections  in  month  9 

4  inspections  in  month  10 

2  inspections  in  month  11 

2  inspections  in  month  12 


74 


Graphical  Schedule 

1  =  Dl,  2  =  D2 ,  3  =  Dla,  4  =  D3 ,  *  =  Cl ,  $  =  C2 ,  E  =  Event 
Week  =  week  equivalent  (48  for  a  year)  on  horizontal  axis 
Helicopter  Identification  on  vertical  axis 


1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16 

1  -  -  -  --  --  --  --  --  --  - 

2----------2222-- 

3- --------------- 

4- -------  -  -------- 

5- --111---------- 

G----------2222-- 

7- --------------- 

8- --------44444-- 

9  --  -  ---  --  -  -  --  --  -- 

10--------*------- 

11  -  *- . -------- 

12  -  * . . . 

13  - 

14  -  --  --  --  --  --  --  --  - 

15  -  - 

16  -  --  --  --  --  --  --  --  - 

17  - 

18-----$--------*- 

19--$----------*-- 

20  -  -  -  -  $  -  -  -  E  E  E  E  -  -  -  - 

21  -  --  --  --  --  * . . 

22- -------EEEE---- 

23- --------- . 

24- -------EEEE---- 

25- -----*-EEEE---- 

26  - 
27--------EEEE---- 

28  -  --  --  --  --  --  --  --  - 
29  - 

30- -------EEEE---- 

31- -*-----EEEE*--- 

32  -  --  --  --  --  *- . 

33 

34--------EEEE---- 

35  -  -  -  -  -  -  -  -  E  E  E  E  -  -  -  - 

36  -  --  --  --  --  --  --  --  - 

37  - 

38  -  - 

39  -  - 

40  -  --  44444-------- 

41  --------------  1  1 

42  -  --  --  --  --  -2222-- 

43  3  3  3  -  -  -  -  -  E  E  E  E  -  -  -  - 

44  44444----------- 

45  111------------- 
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17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32 


1------111------- 

2-------------*-- 

3- -------------33 

4- --------------- 

5  -  ---  --  --  -  *------ 

6-----*--  -  -  --  --  $- 

7- ------333-----~ 

8- ----*--------$- 

9------3.il------- 

10  -  --  --  --  --  --  --  -22 

3.3.  -  --  --  --  --  --  --  --  - 

12  -  --  --  44444------ 

3.3  -  --  --  --  --  --  --  --  - 

3.4  -  -*- . 

15  -  --  --  --  --  333---- 

16-EE-------44444- 


17- *---- 

18- ----- 

19------ 

20  -  4  4  4  4  4 

21  ------ 


22---- . $------ 

23------*--------$ 


24  -  $  - 

25  -  -  - 

26  -  E  E 

27  -  $  - 

28  -  -  - 


29  -  --  --  $ . 

30  -  --  --  --  --  --  --  --  - 

31  -  --  --  --  --  --  --  -_3 

32  -  --  --  -$- . . 

33-EE--------111-- 

34  -  --  --  --  --  --  --  --  - 

35  - 

36  -  --  -- . 

37  -  --  --  --  --  --  --  --  - 

38- EE------------- 

39- EE------------- 

40  -  EE----------$-- 

411------------*-- 

42- EE------------- 

43- ------------$-- 

44  -  EE------$------ 

45  -  --  --  --  --  --  --  --  - 
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33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48 


1  -----  -  -------*-- 

2--E------------- 

33------------*-- 

4- -----44444-EEEE 

5- ---------$----- 

6- -E------------- 

7- -E-------$----- 

8- --------------- 

9--E--*---------- 

10  22-------------- 

11  -  -333----------- 

12  - 

13------111---EEEE 

14  -  --  --  -2222------ 

15  -  --  --  --  --  --  --  --  - 

16------------EEEE 

17  -  --  --  --  --  --  --  --  - 

18  -  --  --  -2222------ 

19  -  --  --  --  --  --  --  --  - 

20  -  --  --  --  --  --  --  --  - 

21--E------------- 

22  -  --  --  --  --  --  --  --  - 

23  -  -  E  -  -  -  -  * . 

24-  -----*--- 

25-  -----EEEE 

26  *-------------22 

27  - . *- . - 

28  - 
29--E------------- 

30  - 

31  33-------------- 

32---------*------ 

33  -  --  --  --  --  --  --  --  - 

34  -  --  --  --  --  -2222-- 

35  -  --  --  --  --  --  --  --  - 

36--E---*--------- 

37  -  * . ------- 

38  -  --  --  --  --  --  --  --  - 

39  -  -333----------- 

40  -  --  --  --  --  --  -EEEE 

41- -E------------- 

42- $-------------- 

43- -----*--------- 

44- --- 

45  - 
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APPENDIX  D  IMPLEMENTATION  OF  SHORT  TERM  PLANNING  SYSTEM 


$TITLE  MISSION  ASSIGNMENT  MODEL 
SSTITLE  A. SGASLIK  Thesis 

*  Selection  of  helicopters  for  specified  missions 

*  . CONTROL  OPTIONS - - - - 

SOFFUPPER  OFFSYMLIST  OFFSYMXREF 

OPTIONS 

LIMCOL  -  0  .  LIMROW  =  0  ,  SOLPRINT  =  OFF  DECIMALS  =  2 

RESLIM  -  100000  .  ITERLIM  =  5000,  OPTCR  -  0 . 05  ,  SEED  -  3141 

OPTION  LP  -  XA,  RMIP  -  XA.  MIP  -  XA; 

*  . . DEFINITIONS  AND  DATA . 

SETS 

M  mission  identification  /1*20/ 

H  helicopter  identification  /1*45/ 

I  simultaneous  mission  groups  /1*6/  ; 

ALIAS  <H,HA); 

PARAMETERS 

REMINSP(H)  remaining  hours  to  next  inspection 
/  1  0 

2  0 

3  5 

4  5 

5  5 

6  10 

7  10 

8  10 

9  12 

10  15 

11  20 

12  25 

13  25 

14  30 

15  35 

16  35 

17  35 

18  40 

19  45 

20  45 

21  50 

22  50 

23  55 

24  55 

25  60 

26  60 

27  70 

28  75 

29  75 

30  74 

31  60 

32  60 

33  40 

34  40 

35  30 

36  30 

37  30 

38  20 

39  10 

40  5 

41  5 

42  5 

43  0 

44  0 

45  0  / 

AVAIL (H)  availability  of  helicopter  for  mission 

/I  0 

2  0 

3  1 
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4  1 

5  1 

6  0 

7  1 

B  1 

9  1 

10  1 

11  0 

12  1 

13  0 

14  1 

15  1 

16  1 

17  1 

18  1 

19  0 

20  1 

21  1 

22  1 

23  1 

24  1 

25  1 

26  1 

27  1 

28  1 

29  1 

30  1 

31  1 

32  1 

33  1 

34  1 

35  0 

36  1 

37  0 

38  1 

39  1 

40  1 

41  1 

42  1 

43  0 

44  0 

45  0  / 


OPERATION (H)  operation  limitation 

*  code  description  0-none,  1-CTP  only,  *  »VPR  only,  3-  daylight  only 

2  0 

3  0 

4  0 

5  0 

6  1 

7  0 

8  2 

9  0 

10  0 

11  0 

12  0 

13  0 

14  0 

15  3 

16  3 

17  0 

18  0 

19  0 

20  0 

21  0 

22  0 

23  0 

24  0 

25  0 

26  3 

27  0 

28  0 

29  1 

30  2 

31  2 

32  0 

33  0 

34  0 

35  0 

36  0 

37  1 

38  1 

39  1 
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40  0 

41  0 

42  0 

43  0 

44  0 

45  0  / 


INSPWEEK (H)  week  of  nexc  inspection  out  of  yearly  schedule 
/I  12 

2  12 

3  13 

4  13 

5  14 

6  14 

7  IS 

8  15 

9  16 

10  17 

11  17 

12  17 

13  18 

14  19 

15  20 

16  21 

17  22 

18  23 

19  24 

20  25 

21  26 

22  26 

23  26 

24  27 

25  28 

26  29 

27  30 

28  31 

29  32 

30  33 

31  33 

32  30 

33  29 

34  29 

35  28 

36  27 

37  26 

38  25 

39  19 

40  15 

41  15 

42  15 

43  12 

44  13 

45  12  / 


PRIORITY (H)  user  given  priority  for  helicopter 
*  o  •  lowest  3  -  highest 
/  1  0 

2  0 

3  3 

4  3 

5  3 

6  2 

7  2 

8  2 

9  2 

10  2 

11  1 

12  1 

13  1 

14  1 

15  1 

16  3 

17  3 

18  3 

19  3 

20  2 

21  2 

22  2 

23  1 

24  0 

25  0 

26  0 

27  1 
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28  1 

29  1 

30  1 

31  3 

32  2 

33  3 

34  2 

35  1 

36  1 

37  0 

38  0 

39  1 

40  2 

41  3 

42  3 

43  0 

44  0 

45  0  / 

EQUIPMENT (H)  equipment  code  for  each  helicopter 
*  1-11  seats  2-5seats  3-400kg  5-ITL  6-ITR  7-ttinch 
/I  1 

2  2 

3  3 

4  4 

5  5 

6  6 

7  1 

8  2 

9  3 

10  4 

11  5 

12  6 

13  1 

14  2 

15  3 

16  4 

17  5 

18  6 

19  1 

20  2 

21  3 

22  4 

23  5 

24  6 

25  1 

26  2 

27  2 

28  2 

29  2 

30  3 

31  3 

32  3 

33  3 

34  3 

35  3 

36  2 

37  2 

38  2 

39  1 

40  3 

41  2 

42  5 

43  6 

44  2 

45  3  / 

NEXTINSP(H)  completion  length  of  next  inspection  in  weeks 
/I  0.5 

2  1 

3  3 

4  4 

5  5 

6  0.5 

7  0.5 

8  0.5 

9  0.5 

10  1 

11  1 

12  3 

13  0.5 

14  0.S 

15  1 

16  0.5 

17  3 
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18 

4 

19 

4 

20 

5 

21 

0.5 

22 

1 

23 

0.5 

24 

1 

25 

3 

26 

4 

27 

0.5 

28 

0.5 

29 

0.5 

30 

1 

31 

X 

32 

5 

33 

0.5 

34 

1 

35 

3 

36 

4 

37 

5 

38 

0.5 

39 

4 

40 

3 

41 

1 

42 

0.5 

43 

0.5 

44 

0.5 

45 

1 

LKNGTH(M) 

/  1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 


length  of  mission  in  hours 
2 
2 
2 

4 

5 
S 
5 
S 
5 
1 

4 

20 

5 

10 

6 

7 

8 
5 
3 


REQUEQU(M)  required  equipment  code  for  mission 
*  1-11  seats  2-5seats  3-400)cg  5-ITL  6-ITR  7-Winch 
/I  2 
2  2 

3  2 

4  3 

5  4 

6  5 

7  5 

8  3 

9  2 

10  1 
11  2 
12  6 

13  6 

14  1 

15  1 

16  1 

17  1 

18  5 

19  3 

20  2  / 


SPAREREQU(M)  spare  helicopter  required  for  mission 
/I  0 
2  0 

3  0 

4  1 

5  1 

6  1 

7  1 

8  0 
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9  0 

10  0 
11  1 
12  1 

13  1 

14  1 

15  1 

16  0 

17  0 

18  0 

19  0 

20  1  / 


MISSIONLIM(M)  not  acceptable  helicopter  operation  limitation 
*  1-CTP  only  2-VFR  only  3*Daylight  only  4»none 
/I  4 

2  4 

3  4 

4  1 

5  1 

6  1 

7  1 

8  2 

9  2 

10  2 

11  3 

12  3 

13  3 

14  3 

15  1 

16  4 

17  4 

18  4 

19  4 

20  4  / 


MISGROUP (M) 
/  1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 


groups  missions  which  are  happening  simultaneously 
1 
1 
2 
2 
2 
2 
3 
3 
3 
3 

3 

4 
4 
4 

4 

5 

5 

6 
6 

6  /; 


SCALARS 

CONST1  constant  for  objective  function  /  3  / 

C0NST2  constant  for  objective  function  /  5  /; 

* . MODEL . - . - . — . - . 

BINARY  VARIABLE 

FM(H,M)  one  if  helicopter  is  selected  for  mission 

FS(H,M)  one  if  helicopter  is  selected  as  spare  for  mission 


LOOP  (M  $  (SPAREREQU (M)  EQ  0),  FS.FX(H.M)  -  0  ); 


POSITIVE  VARIABLES 

PENMULT(H)  penalty  for  assigning  one  helo  for  more  then  one  mission 
VARIABLE 

COST  objective  function  variable; 
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EQUATIONS 

OBJ 

CHO(M) 

CHOS(M) 

HRS  (H) 
MULT(H) 
MOLTS (H, I) 


objective  function  equation 

exactly  one  helicopter  for  each  mission 

exactly  one  spare  for  each  mission  when  required 

length  of  mission  constraint 

multiple  missions  constraint 

multiple  missions  constraint  for  simultaneous  missions; 


OBJ..  COST  *E.  100  ♦ 

SUM((H,M>  S  (AVAIL (H) )  ,  (  l CONST  1  -  PRIORITY(HI)  * 

0.1  *  (CONST2  -  NEXTINSP(HI)  * 

MAXI  (EQUIPMENT  (H)  -  REQUEQU  (M)  )  .  (REQUEQO  (M)  -  EQUIPMENT  IH)  )  )  - 

0.1  *  INSPWEEK(H)  )  *  FM(H,M)  )  ♦ 

SUM (  (H,  M)  $  (AVAIL (H)  AND  SPAREREQU (M)  )  , 

(  0.5  *  ( CONST 1  -  PRIORITY (HI )  *  0.1  *  (CONST2  -  NEXTINSPIH))  » 

MAX!  (EQUIPMENT  'HI  -  REQUEQU  (M)  )  .  (REQUEQU  (M)  -  EQUIPMENT  (H)  )  )  . 

0.1  *  INSPWEEK(H)  )  *  FS(H.M)  )  ♦ 

SUMIH,  0.5  *  PENMULT (H)  ); 


CHO(M)..  SUMIH  $  I AVAIL (H)  AND  (OPERATION (H)  NE  MISSIONLIM (M) ! ) . 
FM(H,M>  )  -E-  1; 


CHOS(M)  S  (SPAREREQU (M) ). . 
HRS  (H)  S  (AVAIL  (H)  )  .  . 

MULTS (H,  I)  S  (AVAIL (H) ) . . 
MULT (H)  $  (AVAIL (H) ) . . 


SUMIH  S  (AVAIL (H)  AND  (OPERATION (H) 

NE  MISSIONLIM (M) )) ,  PS(H.M)  )  «E-  1; 

REMINSP (H)  -G» 

SUM  (M,  LENGTH  (M)  *  (FM(H,M)  ♦  FS(H,M))); 

SUMIM  S  (MISGROUP  (M)  EQ  ORD(D),  FM  (H,  M)  ♦ 
FS(H,M!  )  -L-  1  ; 

SUMIM,  FMIH.M)  )  -L-  1  »  PENMULTIH); 


MODEL  MISSION  /ALL/ ; 

SOLVE  MISSION  USING  MIP  MINIMIZING  COST; 


*  intermediate  non- integer  solution  : 

If  (MISSION. MODELSTAT  EQ  9,  MISSION . ITERLIM  -  10000; 

MISS ION . OPTCR  -  0.1; 

SOLVE  MISSION  USING  MIP  MINIMIZING  COST  )  ; 

*  infeasible  solution  or  still  intermediate  non  -  integer  solution  : 

If  ((MISSION  MODELSTAT  EQ  9)  OR  (MISSION. MODELSTAT  EQ  4)  OR 

(MISSION. MODELSTAT  EQ  10), 

LOOP  (H,  PRIORITY (H)  -  3); 

MISSION. OPTCR  -  0.2; 

SOLVE  MISSION  USING  MIP  MINIMIZING  COST  )  ; 


* . -REPORTS-- 

DISPLAY  FM. L; 
DISPLAY  FS.L; 
DISPLAY  PENMULT. L; 
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APPENDIX  E  INTERFACE  PROPOSALS 


Helicopter  Planning  System^ 
Main  Menu _ y 


n 

Update  Screen 

n 

Mission  Assignment  Screen 

u 

Report  Generation  Screen 

n 

Maintenance  Planning  Screen 

v _ J 


Figure  4 
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j  j  Helicopter  Planning  System  i 
|  !  Update  Screen 

I  - - 

|  Possible  Status  Changes  for  Helicopter  34  : 

Flight  Hour  Update 
Equipment  Change 
Availability 
Planning  Priority 
Operation  Limitation 


Helicopter  Planning  System 
Flight  Hour  Update 

v _ _ _ / 

Helicopter  34~] 

Current  Flight  Hours  :  635  hrs  45  min; 
Next  Inspection  Cl  in  35  hrs  45  min; 

_ hours  _  _  minutes  at _ / _ /  93 


;  Helicopter  Planning  System  i 

■  !  ! 

i  Equipment  Change  I 

\ . . . . . .  . .  _ _ ^ 

Helicopter  34  Current  Equipment  Status :  3  Seats ; 


■■ 1 

5  Seats 

11  Seats 

■■ 

400  kg  Load 

Internal  Tank  Left 

■■ 

Internal  Tank  Right 

■  ■Mb 

Winch 

Helicopter  Planning  System 
Availability  Code 


Helicopter  34  Current  Availability  :  Operational 


Cl  um  Prise  fob? 


C2 


D1  Prise  Aviomc 


Prise  Ekdric 


Dla 


D3 


Estimated  Completion  Time  : _ / _ /  93 


s  Helicopter  Planning  System  j 
|  |  Planning  Priority  I 

I 

I 

|  Helicopter  34  Current  Planning  Priority :  3  =  high ; 
0  =  very  low 

1  -  low 

2  =  medium 


j  Helicopter  Planning  System 

i 

'^Operation  Limitation _ 

Helicopter  34  Current  Limitation  :  0  =  none  ; 


i 

1 

i 

i 

j 

j 

I 
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Schedule  Week :  21  -  22 


Yearly  Schedule 


iHelo 

Imp 

§50 

wmmwwi 

12 

C2 

21 

23 

Cl 

22 

42 

D1 

21 

m 

Cl 

22 

<  =  10  hours  left 


Imp 


14 1  Cl 


23  Cl  2 


42  D1 


Cl  9 


Short  Term  Schedule 


Helo  Imp  Week 


14  Cl  22 


23  Cl  21 


42  D1  21 


Cl  22 


Helicopter  Planning  System  i 

i 

Report  Generation  Screen 
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